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"O .. C PASCAL 80 , t KNIFE / J 
O  .-Comp,.orC 
J  S) "- "" i , ra Z-80. De'a el . .  
erS6s °-isPlottapdare CP/M'. rPo;CraaPafuente en uJn a Permi e trabalo nd,rnCtO  
 / Capacidaes de E/S, fichero programa directamente sobre disco, hie e 

aleatorios y modos de acceso 
binario y ASCII. Incluye 
editor ED 80 compatible 
DEVPAC 80 WORDSTAR. 
Ensamblador/des 15.000 
ED 80: Editor Config 
GEN 80: Macros, 
disco, ensamblador condicional 
manipulaci6n bit bit. MON80: 
Monitor y debugger, puntos 
de ruptura y presentaci6n 
emoria. 
15.000 
Transforme su impresora 
en una imprenta. Permite la 
impresi6n en 8 tipos distintos 
de letras; configurable para 
cualquier impresora. 

ejecu(, Incluye ED 80, hexadecimal o ASCII 
editor compatible con ficheros perdidos o 
WORDSTAR. aherar y/o proteger 
directorios, todobajo 
AMSDOS y CP/M. 
15.000 7.900 
para AMSTRAD. Inclu' 
THE WAND, creador 
de ramas. 

)lementaci6n total del 
lenguaje MODULA-2 para 
CP/M. Comp.ilador en un 
tnico paso, listo para ser 
[inkado. 

Affade a la potencia del 
programa POLYPRINT 8 
juegos adicionales de impmsi6n 
a los ya existentes. 

sidente en memoria, sin 
interferir en su programa 
principal le ofrece: Calculadora 
(Hex-Dec), Block de notas y 
tel&fonos, Calendario, 
Directorios, etc.. 

Permite realizar grficos 
sofisticados en su impresora. 
Grficos de pastel, histogramas 
comparativos, grficos de lineas, 
Im,genes de 980 PIXELS de 
densidad. 

Sencillo sistema de 
MAIL-MERGE. Id6neo para 
producir circulares. Incluye 
editor. Permite la realizacibn 
de etquetas 

Asigna a cada disco un 
nOmero de serie y adems 
indexa y cataloga los fichefos 
en ese disco. 

M6dulo de textos, 
preparado para ser 
empleado con nuestro Ipiz 
ESP o con las teclas de 
cursor. 

lore las enormes 
del rocesador 
textos NEWWORD; 
desde Ic 
roceso de textos. 

intas audio con 
instrucciones claras para 
rendizaje y apoyo al manual 
I tratamiento de textos 
LOSOSCRI PT. 

Nueva versi6n mejorada y 
compatible con nuestra 
tableta GRAFPAD II: Gran 
capacidad en gr,ficos. 

Curso de nloacon a los 
teclados, recomendado 
personas no 
SU U$O. 

Conozca a rondo las 
posibilidades del teclado, 
escribiendo con sus diez dedos 
en lugar de s61o dos. 

los 4 9.900 9.900 
no 
23.800 incluido 
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 rimeros 
pasos 
Conhnuamos avanzando en /a comprenson de los 
instruct/ones clue involucran la lectura de/teclado. 
KEY e INKEY$ componen nuevameate los 
elementos que has van a permilir un control Iota/de/ 
leclodo. 

Progromar se esl6 posondo de moda. Coda vez I 
hportoncia de/programo final recae m#s y m6s en 
un an61isis concienzudo, dela/lado y opFmizodo at 
mdximo. Hosta ahora no bahia ross remed/o qu.e 
#erder e/ tiempo en ted/osas tareas, desde ahora on 
NU'LELISr generar programas en BASIC es ya. 
una tea//dad. Descubre lodas /as .ventajas e 
inconvenientes de esle t/po de programos. 

Comenzamos a cam/nor pot/o senda de to 
inte/igenda arl/ficJa/. Par e/momenta oprendamos a 
dominor un /enguot'e imprescindib/e, e/11. No 
dejes de/eer esta section y oprende desde e/ primer 
momenta este polenle /enguaje. 

C6digo  
m6quina 
Anal/zamos /os puertos de/Amstrad: descube 
coma puedes hater verdaderas d/ab/uras 
¢¢otocondo d/rectamente al conlro/ador de vfdeo 
y son/do. 

DAM BUTER, un simubdor de vueb donde 
sentirds el rug/r de/as motores, donde tendrds que 
gobernar coda una de/as partes de Iu aparato. Par 
fro, busca a Iu enemigo, apunla y dispara. 

SerJe oro 
Defiende lu nave de//emib/e olaque de DRAKE. 
Prueba tu hob/J/dad y ref/e/os con este programo de 
maravi//osos gr6ficos. 
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CAMELOT WARRIORS 

El misterio, la fantasfa y la ms sofisticada 
tcnica en diseo grfico han hecho posible 
este clsico de DINAMIC. 
Camelot Warriors. Imaginacidn sin Ifmite. 

OLE, TORO 

Tres elementos se dan cita en el rito de la 
arena: la vida, la muerte y el arte. Ole, 
Toro. Originalidad sin lfmite. 

WEST BANK 

La. rapidez d.e reflejos es la clave de tu 
supervivencia, y los nervios de acero un 
seguro para la victoria. 
West Bank. Adictividad sin Ifmite. 



SALON DEL SOFTWARE 
DE APLICACION 

Y SISTEMAS INFORMATICOS 

X eFT.6 

De110 a112 de junio se 
ha desarrollado en el Palacio de Congresos 
y Exposiciones de Madrid, EXPOSOFT 86, 
primer sal6n de software de aplicaci6n y sis- 
temas inform6ticos. 
En un corto espacio de tiempo, hemos teni- 
do la oportunidad de comprobar c6mo cada 
vez se va difundiendo m6s en el mundo de la 
informtica, la sana coslumbre de tener infor- 
mado al consumidor de todas las opciones y 
novedades que liene en el mercado. 
En esta ocasi6n el sal6n iba destinado a los 
programas de aplicaci6n, coma el entorno de 
perif6ricos que rodea al ordenador. 
Coma elias mismos, EXPOSOFT 86, indi- 
can en sus notes de prensa Io que se preten- 
die en esta ocasi6n era mostrar la <4nteligen- 
cia> que rnueve la m6quina, no la m6quina en 
Y esta <<inteligencim iba destinada, prin- 
cipalmente a los PC (Ordenadores persona- 
les), y evidentemente hablando de los PC, s- 
tos estaban presentes en el sal6n de la mano 
de la poderosa IBM y de los compatibles de 
otras marcas. 
As/, y de acuerdo con esto y con la poten- 
cia del mercado nacional en el terreno del soft- 
ware, vimos programas encamindados hacia 
sectores empresariales espedficos y otros a co- 
lectivos profesionales determinados. 
Y de entre las actividades profesionales para 
las que se ofrecian soluciones, estaban las des- 
tinadas a arquitectos, abogados, m6dicos, edi- 
lores, efc. 
Adem6s de ofrecer programos para los sac- 
fores de ensefianza, automoci6n, transporte, 
salud, etc. 

En Io que se refiere o Amstrad, vimos en 
el stand de PROA, S.A., dos programs de de- 
sarrollo vertical para el PCW 8256. Estos pro- 
grams son el HARMA, programa de aplica- 
ci6n de arquitectura, para dibujar pianos a es- 
caia y acotados. El de Presupuestos y Medi- 
ciones, tambin de aplicaci6n pare arquitec- 
tufa, sirve para realizer mediciones y presu- 
puestos de obras y trabajos en general. 
Esta era la exigua representaci6n de soft- 
ware para Amstrad. 
Dentro del interesante campo del diseo 
grfico par ordenador (CAD-CAM), del que 
ya hablaremos m6s adelante en el futuro, vi- 
mos funcionar el programa AUTOCAD de la 
case AUTODESK en el stand de SOFTRO- 
NICS. 

Los dibujos que pudimos observar, eran de 
tres dimensiones de una oficina coma la que 
podemos encontrarnos en cualquier lugar, pe- 
ro Io bonito era ver el desarrollo de los dibu- 
jos, asi coma la perfecci6n de los mismos. 
Y aunque el piano de una oficina realmen- 
te no causa mucha impresi6n, en los prospec- 
tos de difusi6n del programa, se podian dibu- 
jos de buques, piezas de maquinaria, y hasta 
una de las naves tipo Columbia, que demos- 
traban la potencia de este programa de dise- 
o asistido par ordenador. 
Otro programa de AUTODESK, el CAD- 
CAMERA, es tambi6n sumamente interesante 
y convierte autom6ticamente dibujos en pa- 
pel, en dibujos de fichero AUTOCAD, 
CAD-CAMERA trabaja con una cmara 
exploradora y par Io tanto la exploraci6n 6p- 
tica no toma m6s tiempo que el trazado del 
mismo dibujo. Los pianos se pueden almace- 
nar en disco y posteriormente convertir a di- 
bujos AUTOCAD, luego se podr6n editar y 
trazar en la escala deseada. 

A nivel de difusi6n de las t6cnicas de la in- 
form6tica, FUNDE$¢O (Fundaci6n pare el 
Desarrollo de la Funci6n Social de las Comu- 
nicaciones), tenia obras verdaderamente in- 
teresantes pare todo equal que quiera saber 
las repercusiones que est5 teniendo el proce- 
so de informatizaci6n en la sociedad. 
Y coma muestra del interns de estos libros, 
tomemos par eiemplo algunos casos: 
-- INTELIGENClA ARTIFICIAL EN 
ESPAA. Introducci6n y situaci6n en Espa- 
fie. 
-- INFORMATICA Y ESCUELA. 
-- LA TECNOLOGIA DEL SOFTWA- 
RE. 
-- LOS ORDENADORES Y EL CAM- 
BIO SOCIAL. 
Pero aparte de stos habia afros tambin 
interesantes pero que harian la lista tal vez un 
poco larga. 
Durante los dias en los que transcurri6 el sa- 
16n, se celebraron conferencias tales coma: 
-- TRATAMIENTO DIGITAL DE IMA- 
GENES. 
-- EL SOFTWARE DE LA SALUO. 
-- LOS SISTEMAS EXPERTOS: UNA 
NUEVA GENERACION DE SOFTWARE IN- 
TELIGENTE. 

Estas conferencias seguro que ayudarn a 
difundir temas sabre los queen Espafia toda- 
via estamos retrasados debido a un estudio e 
investigaci6n notablemente deficitarios. 
Pues nada m6s que canter de este EXPO- 
SOFT 86, sino decir que el pr6ximo a5o no du- 
damos que la concurrencia al sal6n ser6 mu- 
cho rn6s importante que la de ste, que no ha 
sido muy numerosa y pensamos que proba- 
blemente esto haya sido asi par la pace difu- 
si6n que ha tenido este acontecimiento. 



EL MOVIMIENTO E$ LIBRE 

Ya conocemos la forma de hater que un cuerpo, forma o 
simbolo se deslice por la pantalla cuando se Io indicamos al 
ordenador. Para iniciar el movimiento basta con pulsar una 
determinada tecla y punto, el m6vii ira en la dlreccin 
deseada. 

sto est6 muy bien, pe- 
ro no nos conforme- 
mos. Intentaremos en esta ocasi6n dar <<cli- 
mensicn) al movimiento. 
Qu queremos decir. P,r el momento s6- 
Io hemos visto la manera de conseguir que 
nuestro <<ovnb, por ejemplo, se mueva una 
posici6n hacia la derecha cada vez que se pre- 
sione la tecla <<cl -por elegir una. 
Y esto no es suficiente para Io que nosotros 
queremos. Adem6s de la posibilidad de avan- 
zar hacia la derecha, nos gustaria tener la op- 
ci6n de movernos en sentido contrario. C6- 
mo hacerlo? 
gSe acuerda de nuestro articulo anteriorS. 
Descubrimos que existe una funci6n que per- 
mite leer un cardcter introducido por el tecla- 
do, es decir, detecta si se ha pulsado o no una 
tecla y ademds genera un valor alfanumri- 
co, o cadena, que consiste en el cardcter de 
la tecla que se ha pulsado. 
INKEY$ 
es, precisamente, esa funci6n y la vomos a uti- 
lizar para conseguir nuestro objetivo. 
Nos ponemos en marcha? Para empezar 
teclee con cuidado el Programa 1. Es seme- 
jante al que publicabamos la semana pasada 
como Programa 4. Con l recordaremos la 
manera de aplicar en la prdctica esta nueva 
instrucci6n. 

Programa uno 

Todo el <<meollo de la cuesti6n est6 en 
la linea 100. La funci6n INKEYS estar6 explo- 
rando ciclicamente si se ha pulsado una tecla. 
Cuando asi Io hayamos hecho, nos devolve- 
rd un valor alfanumrico que nosotros asig- 
namos a la variable 
A continuaci6n solamente analizaremos si el 
contenido de esta variable <<teclas$> coin- 
cide o no con el de la tecla elegida para mo- 
vernos. 
En nuestro caso hemos considerado que era 
bastanle fdcil asociar un movimiento hacia la 
derecha con la letra <d, pero podriamos fi- 
jar cualquier otra. Cambie la linea 110 ponien- 
6 COHO AMSTRAD 

do en ella la letra que mds le guste y comprue- 
be que el programa tambi6n funciona, pero 
ahora ser6 necesario pulsar otra tecla si que- 
remos que nuestro m6vil se desplace como an- 
tes. 
Intente hacerlo con may0sculas, minOsculas 
o con cualquier signo de puntuaci6n o cardc- 
ter especial. Siempre obtendrd los mismos re- 
sultados (esperemos que positivos). 
Cuando el valor alfanum6rico devuelto por 
la funci6n INKEY$ coincida con la tecla elegio 
da -<d- el programa hard que aumente el 
valor de la coordenada <<x y, por tanto, Don 
Sonrisitas se desplazar6 un lugar hacia la de- 
recha: se moverd. 
Pero, como hemos dicho antes, estamos de- 
cididos a dar rods <movimiento a nuestro ami- 
go. Qu le parece si ahora intentamos que 
vaya hacia la izquierda? 
Como primera medida a tomar, elegiremos 
el valor de la tecla que, al pulsarla, hard po- 
sible que asi sea. Estd bien la <b, de izquier- 
da? Vale. 

10 REM PIOGPAHA ! 
2A CLS 
TO ×=20 
40 y=10 
50 LOCATE ,y 
60 PRINT CHR$(224) 
70 FOR i=I TO 500:NEXT i 
80 LOCATE  y 
'90 PR!NT .... 
100 tecl $=INKEY$ 
110 IF tecla$-"d" THEN =×+I 
120 GOTO 50 

Asi que conseguiremos que el 
CHR$(224) se pasee por la pantalla <ca- 
minando hacia la derecha cuando presione- 
mos la tecla <cl yen sentido contrario con 
la d. Ya tenemos algo definido, s61o nos 
queda ver la manera de hacer que esto fun- 
clone. 
Todo el problema radica en el tratamiento 
que hagamos de la coordenada horizontal- 
x-- en cada caso. Cuando en el Progra- 
ma 1 la funci6n INKEY$ detectaba que se 
habia pulsado una tecla, despu6s nosotros, o 
mds bien nuestro ordenador, comprobaba si 
habia sido la elegida. De acuerdo con esta 
comprobaci6n aumentdbamos o no el valor 
de <x, Io que implicaba que se produjera o 
no el movimiento. Una parte del problema es- 
t6 ya resuelto. 



El desplazamiento en sentido contrario, qu6 
supone? Si Io piensa un poco despacio ver6 
que la respuesta no es tan complicada como 
pueda parecerle. Si hacemos avanzar un m6- 
vii hacia la izquierda, estamos disminu- 
yendo) el valor de <<x. Est6 de acuerdo? 
No olvide que el origen de coordenadas ho- 
rizontales en la pantalla de textos, que es la 
que eslamos usando, comienza por el valor 1 
yen el margen izquierdo de la misma. 
Conclusi6n. Si queremos de nuestro amigo 
que se <pasee hacia la izquierda es suficien- 
te con ver si hemos presionado la tecla esco- 
gida para que asi sea, y despu6s, en caso afir- 
mativo, decrementaremos en 1 el contenido 
de la variable <x que nos marca el valor de 
la coordenada horizontal. 
| 
fi 9. I: Desplazamieo e dos 
dOS, 
ka figura 1 nos muestra cudl seria el proce- 
so Idgi¢o seguido ara Iograr que un cuerpo 
se desplce en ambos sentidos. 
Y ha Ilegado la hora de vet si esto es asi o 
hay algo que falla, iA cofificar! 
En esta ocasi6n nos parece que la soluci6n 
es bastante sencilla. El Programa 2 es una ver- 
si6n del anterior, pero corregida y aumen- 
radars. 

Programa dos 

Escribalo con su ordenador y atr6vase a eje- 
cutarlo. Recuerde que fijamos la tecla <d pa- 
ra el movimiento hacia la derecha y al <i ha- 
cia la izquierda. Funciona? iSi, claro! 
Qu6 ha cambiado respecto al Programa 17 
Hemos affadido solamente una nueva linea - 
la 120. Todo Io dem6s es absolutamente igual. 
En teclaS est6 almacenado el valor devuel- 
to por la funci6n INKEY$. 
Con la linea 120 hacemos el tratamiento 
prctico con instrucciones Basic, de todo Io que 
hemos comentado anteriormente. 
Si se cumple la condici6n que va detr6s de 
IF: 
teclaS =i 
implica que hemos pulsado la letra i y que, 
por Io tanto, Don Sonrisitas se tendr6 que mo- 
ver hacia la izquierda. Por eso la acci6n que 

ejecutaremos cuando asi sea es la que va a 
continuaci6n de THEN: 
con la que decrementamos en 1 el valor de 
la coordenada xi y acercamos asi a nuestro 
amigo al borde izquierdo de la pantalla. 
Comprendido? 
Ejecute de nuevo el programa. Ahora pul- 
se la i continuamente aver que pasa. Pare- 
ce que todo es normal. El simbolo se va des- 
plazando tranquilamente por la pantalla co- 
mo si no ocurriera nada. 
Pero al Ilegar al horde, su Amtro le ob- 
sequia con un mensaje de error. Yaya! Le 
aparece algo asi como: 
Improper argument in 50 
y el programa se detiene. Qu6 nos quiere de- 
cir con esto? 
El mensaje de error que nos ha salido nos 
est6 indicando que en la linea 50 hay un ar- 
gumento de una funci6n o un parmetro de 
una orden cuyo valor no es correcto. Anali- 
cmoslo. 
Lo primero que debemas hater es ver qu6 
hay en la linea 50. claro. Con: 
LIST 50 
tendremos en la pantalla un listado, o visuali- 
zaci6n, de dicha Iinea. Resulta que es: 

tO REM PROGRAMA II 
20 CLS 
30 x=20 
40 y-t0 
50 LOCATE 
60 PRINT CHR$(224) 
70 FOR i=I TO 500NEXT i 
80 LOCATE 

90 PRINT " " 
100 tecla$=INKEY$ 
II0 IF tecla$-"d" THEN x=x+l 
120 IF tecla$ "i" THEN x=x-1 
130 GOTO 50 

50 LOCATE x,y 
Que ocurre entonces? Leyendo detenida- 
mente el mensaje de error podemos deducir 
que el valor de un par6metro (o de los dos) 
de la instrucci6n LOCATI: no es correcto. 
Podemos imprimirlos y ver qu6 contienen. 
Teclee: 
PRINT x 
y le aparecer6 en la pantalla el valor que tie- 
ne en este momento la variable <x. 
A continuaci6n escriba: 
PRINT y 
y se visualizar6 el contenido de la variable <y. 
zcoo AMSTRA D 7 



Asi podremos comprobar si son buenos o no 
dichos valores. 
Resulta que ((x)) contiene un 0 e ((y) un 10. 
Cual es el incorrecto? Antes de contestarnos 
piense que estamos ante los parametros de 
una instrucci6n LOCATE. .Recuerda que va- 
lores son los que esta ordeh puede utilizar sin 
error? 
Lo coordenada Yb o n0mero de la ilia, 
puede estar comprendida entre 1 y 25 en el 
modo (o MODE) de trabajo que habitualmente 
utilizamos. Hemos dicho queen esta ocasi6n 
vale 10, asi que parece que por su parte no 
habr6 problemas. 
vaoef,o I x? Esta c°°rdenada tiene un 
ec o siempre que esl6 comprendida 
entre 1 y 40 (en MODE 1, claro), ya que son 
40 las columnas que tiene la pantalla. Cu6n- 
to vale ahora? Con la instrucci6n: 
PRINTX 
dada anteriormente encontramos que conte- 
nia un cero. Y ahi est6 el error, ya que la 
coordenada <x de una orden LOCATE no 
puede valer menos de 1. 
Asi que el programa se nos detiene y el or- 
denador nos da un mensaje de error en el mo- 
mento que, al ir decrementando el contenido 
de la <x, Ilega a tomar un valor menor que 
1, o sea cero en este caso, y utilizamos este 
par6metro en la linea 50: 
50 LOCATE x,y 
Habr que corregir este error, .no?, La 
manera ms sencilla de hacerlo es impedir que 
se d6. Aunque esto parece una cosa demasia- 
do evidente, creemos necesario analizarlo des- 
pacito. 
Qu6 queremos decir con (impedir qe 
se d) esta situaci6n? Precisamente Io que 
acaba de leer. 
El error se da cuando a la instrucci6n LO- 
CATE de Io linea 50 le Ilega una coordenada 
x que vale 0. Impidgmoslo antes de Ilegar 
ahi. 
NUP;S 
COORDNADAS 

figura 2 

Figura I1: Andlisis nuevas coordena- 
Es decir, calculamos el valor de x para el 
nuevo punto en el que va a estar colocado Don 
Sonrisitas. A continuaci6n analizamos si la 
coordenada <x reci6n calculada es v61ida o 

no. 
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Si es v61ida, iadelante! Pero si no Io es, al 
tener un valor igual a cero como vimos ante- 
riormente, devolvemos a la variable el conte- 
nido que tenia y punto. La figura 2 nos pre- 
senta gr6ficamente los diversos caminos a se- 
guir tras este anlisis. 
FIGURA II 
Con esto ,,evilamos, el error antes que se 
produzca y asi el programa <correr6 sin de- 
tenerse. 
Ahora escriba y ejecute el Programa 3 y 
comprobar que esto ya es otra cosa. 

Programa tres 

Hemos aadido las instrucciones que van a 
impedir que se den las condiciones de error. 
Con la linea 130 cuando <x toma el valor ce- 
ro (no vglido para LOCATE)Io convertimos en 
el anterior: 1. Del mismo modo con la 140 evi- 
tamos que ocurra algo semejante pero en el 
otro extremo de la pantalla. 
Con estas condiciones podemos delimitar la 
zona de movimiento de nuestro objeto. En este 
caso puede moverse entre los valores de <,x, 
comprendidos entre 1 y 40. Si tiene curiosidad 
haga los siguientes cambios en el Programa 
3. 
130 IF x=15 THEN x=16 
Y 
140 IF x--2S THEN x=24 
ejecOtelo de nuevo. Qu6 cambios ha obser- 
vado? 
El m6s evidente, y 0nico, es que la zona en 
la que se desplaza Don Sonrisitas es mucho 
ms estrecha que antes. La verdad es que no 
hubiera sido necesario ejecutar el programa 
para comprobarlo. Eche un vistazo alas mo- 
dificaciones que hemos introducido y compren- 
dera por qu6 ahora solamente se va a mover 
entre las columnas 16 y 24. Imaginamos que 
no encontrar6 ninguna pega en ello. 
Bueno, m6s cosas. Ya sabemos c6mo mo- 
ver un cuerpo por la pantalla detectando si se 
ha pulsado o no una determinada tecla. Pero 
s61o Io hacemos en horizontal. Si queremos 
que adem6s suba o baje, qu6 tendremos que 
hater? 
Como ocurre con casi todas las preguntas 
que le hacemos, en esta ocasi6n la respuesta 
tambin es muy sencilla: tratar la coordena- 
da (y) de la misma forma que Io hemos he- 
cho para la x, 
Detallemos todo esto. Como antes, prime- 
ro habr6 que determinar las teclas que nos van 
a producir el movimiento. Asignemos a la s 
la misi6n de subir)) y a la ((b)) la de ((ba- 
jar)). 
Luego incluiremos en el programa unas ins- 
trucciones que nos analicen si hemos pulsado 
o no estas teclas. Cuando presionemos la ($ 
-o la tecla de subir- la coordenada ((y)) ten- 

dr que disminuir ya que su origen est6 en et 
borde superior de la pantalla mientras que si 
Io hacemos con la b -o tecla de bajar- 
el valor de (y) aumentara. 
Una vez calculada la nueva posici6n verti- 
cal del m6vil, analizaremos si es v61ida o no 
para la instrucci6n LOCATE para, en el caso 
de que no sea, evitar que se produzca el error 
con su mensaje correspondiente y la detenci6n 
del progroma. 

10 REM PROBRAMA Ill 
20 CLS 
30 -20 
40 y=lO 
50 LOCATE xy 
bO PRINT CHR$(224) 
70 FOR I=1 TO 500:NEXT } 
80 LOCATE ×y 

90 PRINT " " 
100 tecla$=INKEY$ 
110 IF tecl$="d" THEN x=x+1 
120 IF tecla$-"i" THEN x--I 
130 IF =0 THEN =I 
140 IF =41 THEN -40 
150 GOTO 50 

'Ojo Los valores de la coordenada <y que 
I ' 
resultan correctos son los comprendidos enlre 
1 y el 25, ya que la pantalla de textos est6 di- 
vidida en 25 filas cualquiera que sea el modo 
-o MODE- en el que estamos lrabajando. 
El Programa 4 es la soluci6n pr6cticva a 
nuestro problema. 

Programa cuatro 

Con la linea 100 detectamos si se ha pulsa- 
do una tecla y el valor que nos devuelve la fun- 
ci6n INKEYS Io almacenamos en la variable 
tecla$ como siempre. 

0 REM PROGRAMA IV 
20 
30 =20 
40 y=lO 
50 LOCATE y 
bO PRINT CHR$(224) 
0 FOR i=I TO 5nO:NEXT i 
80 LOCATE 
90 PRINT " " 
100 teEI$-INKEY$ 
110 IF tecla$-"d" THEN  +I 
120 IF tecla$="i" THEN × -I 
130 IF tecla$ "s" THEN y-y-1 
140 IF tecla$="b" THEN y-y+1 
150 IF -0 THEN 
10 IF -41 THEN -40 
170 IF y-O THEN =1 
180 IF y=2& THEN y-25 
190 GOTO 50 

Las comprendidas entre la 110 y la 140 nos 
analizan sila teda pulsada es alguna de las 
que nosotros hemos elegido para el movimien- 
to. Tambin actualizan las coordenadas co- 
rrespondientes dependiendo de cu61 de elias 
ha sido presionada. 
En las que van desde la 150 a 180 compro- 
bamos que los nuevas coordenadas est6n den- 



tro de los limites elegidos. Con etlas evitamos 
que la nueva posici6n del m6vil nos d6 error 
en el LOCATI: de la linea 50. 
Por Io demos, todo es igual a Io que ya he- 
mos estado viendo pero ahora hemos conse- 
guido mover a Don Sonrisitas por toda la pan- 
talla. 
Adems de INKEY$ hay otra funci6n que 
nos permite detectar si se ha pulsado o no una 
tecla. 
INKEY$ has va a devolver un valor distinto 
de -1 cuando examine el teclado y comprue- 
be que se ha presionado una teda determi- 
nada. No has da el car6cter asociado a la te- 
cla, sino un valor distinto de -1 cuando asi 
haya ocurrido. 
Su forma ms general es: 
INKEY (n0m. tecla) 
donde la cifra que hay entre par6ntesis es el 
nOmero que el ordenador tiene asociado a ca- 
da una de las teclas. 
Veamos un ejemplo pr6ctico. El Programa 
5 nos Io muestra. 

Programa cinco 

Es un sencillo bucle sin fin que Io 0nico que 
hate es presentarse en la pantalla el valor que 
nos devuelve la funci6n: 

INKEY (55) 
55 -el n0mero entre par6ntesis- es el valor 
asociado a la barra espaciadora. Por tanto, 
la funci6n: 
INKEY (55) 
nos devolvera -1 mientras no estemos pulsan- 
do el espacio, pero en el momento que Io ha- 
gamos, nos dar6 un resultado diferente. 
Ejecute el programa y compru6belo. Le p.ro- 
ponemos que adem6s de la barra espacla- 
dora pruebe pulsar otras teclas, coma la de 
mayOsculas par ejemplo, manteniendo 6sta 
presionada. Anote los valores que aparecen 
en la pantalla y saque sus conclusiones. 

10 REM PROSRAMA V 
20 CLS 
30 LOCATE II 
40 PRINT INKEY(47) 
50 80TO 30 

Coma dijimos antes, mediante esta funci6n 
podemos detectar si est pulsada o no una 
determinada tecla. Si se cumple la condici6n 
de que el valor devuelto par esta funci6n es 
distinto de -1 implica que si ha sido presio- 
nada. 
Con el Programa 6 se convencer6 de ella. 
Es un bucle sin fin semejante al anterior. 

Programa seis 

En este caso nos aporece en Io pontalla un 
mensaje que nos comunica cu6ndo hemos pul- 
sado el <<espacio. En la linea 40 est6 la for- 
ma de hacerlo. 

40 |F INYEY(47)#3-! THEN PRINTTIEN 

Y le dejamos parcel momenta. Intente pa- 
sar todos los programas que utilizan la funci6n 
INKEYS a otros semejantes pero empleando 
INKEY. Le diremos que los n0meros de te- 
clas asociados alas que hemos usado son: 
s=teda 60 
b=tecla 54 
d=tecla 61 
i=tecla 35 
iSuerte y al teclado! La pr6xima vez, m6s. 

Todos los programadores y aficionados a la microinformtica 
sabemos Io tedioso y propenso a errores que resulta el tedear un 
listado de un programa. Para facilitar tu labor al mximo y que no 
tengas que estar horas sabre el teclado de tu ordenador tratando de 
descifrar incomprensibles mensajes de error, AM$'rRAD SEMANAL 
te ofrece cada mes los programas publicados de los cuatro nOmeros 
correspondientes en una cinta de cassette, s61o par 76 ptas. 
(sin mds gasCs par envio).  
Todoslosprogramasdenuestrasdnlasseencuenlran  Cio n 
desprotegidos, con el obl'eto de fadlitar su copia en disco y   ::; l 
/a revisi6n de los listados, u,;;  u ,  
Envianos con la menor demora ' ., 
posible, el cup6n ss  ?:;;  
correspondiente.  



EXPLO.M. BAS 

Por Juan P6rez Garcia 

]mprime en la pantalla una 
parte de la memoria RAM del Amstrad imprimienclo 8 
bytes por linea. 
A la izquierda se indica la direcci6n de memoria en 
hexadecimal del primer byte de la linea. 
En el centro se imprimen los 8 bytes en hexadecimal. 
A la derecha se imprimen los 8 bytes en ASCII, tenien- 
do en cuenta s61o los 7 bits menos significativos, pero 
en rojo si el octavo bit est6 en 1 (esto permite leer fcil- 
mente los nombres a los que se les ha puesto a 1 bit m6s 
significativo de algOn car6cter, como los hombres de va- 
riables). 
El programa puede ser 6til para aqu611os que quie- 
ran explorar la rnemoria del Amstrad. El programa pi- 
de la direcci6n inicial (DESDE) y la direcci6n final (HAS- 
TA) a presentar. Si el listado de memoria es muy largo 
no se para al Ilenar la pantalla, pero podemos pararlo 
en cualquier momento pulsando una tecla y ponerlo en 
marcha volviendo a pulsar otra vez una tecla. 
Ejemplo: Una buena zona a listar es desde 368 (&170) 
en adelante, ya que aquies donde se almacena el pro- 
grama Basic. Si queremos ver otro programa distinto 
que 6ste podemos hacer un RENUM 65515,1 despu6s 
cargamos el programa a observar con CHAIN MERGE 
"(nombre segundo programa)",65515. 
(Nota: la 61tima linea del segundo programa deber6 

ser inferior a 65515.) 
Explicaci6n: 
linea 70-100 

linea 120-140 
linea 150-170 
linea 180 

Va'riables: 
DESDE 
HASTA 
i,j 
n 

Nos pide la zona de 
memoria a listar. Si damos el 
segundo valor menor o igual 
que el primero el programa 
nos lista la zona de memoria 
desde himem hasta &C000. 
Lista 8 bytes en 
hexadecimal. 
Lista los 8 bytes anteriores 
en ASCII. 
Si pulsamos una tecla el 
programa se para hasta que 
volvamos a pulsar otra vez 
una tecla. 

Direcci6n de memoria 
inferior a listar. 
Fin zona de memoria a 
listar. 
Variables bucle for-next. 
Valor del byte a listar. 

I0 //cEoHo AMSTRAD 

I0 ' 
20 ' AMSTRAD: EXPLORACION DE MEMO 
RIA  
30 ' Por: auan F'er ez Garcia 
50 MODE 1 
70 PRINT"ENTRAR DIRECCIONES A EXPLO 
RAR" 
80 PRINT STRINGS(29,208) 
90 INPUT"DESDE:";DESDE:PRINT TAB(I 
6) ; : INPUT"HASTA: " HASTA 
100 IF DESDE>=HASTA THEN DESDE=HIME 
M:HASTA=&COO16-1:PRINT CHR$(II) "D 
ESDE: " ; DESDE TAB (16)  "HASTA: "  HASTA 
110 PRINT 
120 FOR i=DESDE TO HASTA STEP 8:PEN 
1:PEN 2:PRINT HEX$(i+j,4)": 
130 FOR d=O TO 7:n=PEEK(i+d):IF n 
<128 THEN F'EN 1:PAPER 0 ELSE PEN 3: 
PAPER 0 
140 PRINT .... ;HEX$ (n2) ; : NEXT :PRI 
NT" "" 
150 FOR 3=0 TO 7:n=PEEK(i+):IF n 
<128 THEN PEN 1:PAPER 0 ELSE PEN 3: 
PAF'ER 0 
160 IF n<32 THEN n=144 
170 PRINT CHR$(1) ;CHR$(n) :NEXT d:P 
RINT 
180 IF INKEY$<> .... THEN WHILE INKEY$ 
<>"":WEND:WHILE INKEY$=" " : WEND 
190 NEXT i 
200 PEN 1 



En tu kiosco te espem 

algo muy inteligente 

El AMSTRAD Especial nOme- 
ro 2 incluye una cinta de cas- 
sette adherida a la portada con 
un lenguaje Lisp completo que 

te permiti, comprender y do- 
minar las tecnicas mils comple- 
jas de inteligencia artificial. 
Pot si fuera poco, en nuestra 

cinta se incluyen tambiOn dos 
concursos: uno, de disefio 
rico de pantallas, para artistas, 
te permitirfi ganar hasta 
170.000 t{esctas cn premios. En 
el segundo regalamos un orde- 
nador Amstrad CPC6128. 
El nfimero 2 de AMSTRAD 
Especial tl'ata un amplio espec- 
fro de intcrcsantcs Icmas, co- 
1o Ull comparativo de impre- 
sofas, que Ic ayudaffi a elcgir 
la ms adccuada a sus necesi- 
dades, como multitud de pro- 
gramas y rutinas de utilidad en 
lenguaje mfiquina como un pa- 
quote de sofl integrado, con 
Ires t)rOglaKs en taro y tu lar- 
gO etc4tcra que seria demasia- 
do prolijo dclallat. 
Si no Io encuen/ras en Iu kiosco, 
solicilalo direciameme 
a nueslra Edihwial. 



INSTRUCClONES DE 
EN TRA DA Y SA L IDA 

Con el presente captulo, daremos por finalizado 
el estudio de las instrucciones utilizadas por el 
micropocesador ZSO, que Ileva incorporado 
nuestro Amstrad. 

V 

omo estaremos 
hoy las instrucciones que se utilizan 
para leer datos de un puerto deter- 
minado. 
La primero de este fipo de instruc- 
clones, se representa de ia forma: 
El operado ((n)), se emplaza en la 
mitad del fondo (A0 a A7) del bus de 
direcciones para seleccionar el dispo- 
sitvo de entrada/salida correspon- 
diente a una de los posibles 256 
puertas. 
El contenido del Acumulador (re- 
gistro A), tambi6n aparece en la mi- 
tad superior de (AS a A15) del bus 
de direcciones. 
Entonces un byte de la puerta o 
terminal seleccionado se emplaza en 
el bus de datos y se escribe en el acu- 
mulador en la CPU. 
Si por ejemplo el contenido del 
acumulador es 23 y el byte 78 es ac- 
cesible en el dispositivo perif6rico 
asignado a la direcci6n de terminal 
o puerta 1 de entradalsalida, tras la 
ejecuci6n de 
IN A, (01) 
el acumulador contendr6 78. 
La siguiente insfrucci6n a esfudiar 
viene represenfada de Ja siguiente 
forma: 
IN r, (C) 
El confenido del registro C se em- 
plaza en la mitad baja del bus (AO 
a AT) de direcciones para seleccio- 
nar el perif6rico de entrada/salida a 
uno de los posibles 256 terminales. 
El contenido del registro B se em- 
plaza en la mitad alta (A8 a A15) del 
bus de direcciones en ese momento. 

Entonces se emplaza un byte del 
terminal seleccionado en el bus de 
datos y se escribe en el registro r 
en la 
El registro <r identifica cualquie- 
ra de los registros de la CPU, (A, D, 
E, H, L, B, C). 
Si por eiemplo el contenido del re- 
gistro C es 7, el contenido del regis- 
tro B es I0, y el byte 78 es accesibJe 
al dispositivo perifrico asignado a 
la direcci6n del terminal de enfra- 
da/solido 7, despus de la ejecuci6n 
de 
IN D, (C) 
el registro D contendr6 78. 

Instrucci6n 
INI 

Otra de las instrucciones de entrao 
da y salida, es la representada de la 
forma: 
INI 
El contenido del registro C se era- 
plaza en la mitad baja del bus de di- 
recciones para selecci6n el dispositi- 
vo de entrada/salida de uno de los 
terminales posibles. 
El registro B se puede utilizar co- 
mo contador de bytes, y su conteni- 
do se emplaza en la mitad alta (A8 
a A15) del bus de direcciones. 
Entonces un byte del terminal se- 
leccionado se emplaza en el bus de 
datos y se escribe en la CPU. 
El contenido del registro par HL se 
emplaza entonces en el bus de direc- 
ciones y el byte de entrada se escri- 

l 

be en la direcci6n de memoria co- 
rrespondiente. 
Finalmente se decrementa el byte 
(counter) y se incrementa el registro 
par HL. 
Si pot ejemplo el contenido del re- 
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gistro C es 70 si el contenido del re- 
gistro B es 10, si el contenido del re- 
gistro para HL es 1000, y el byte 78 
es accesible al perif6rico asignado a 
la direcci6n de terminal de entra- 
dalsalida 7, tras la ejecuci6n de 

INI 
la direcci6n de memoria 1000 con° 
tendr6 78, el registro par HL conten- 
dr6 1001 y el registro B contendr6 9. 

Orden 
INIR 

Una instrucci6n similar a esta Olti- 
ma es la que veremos a continua- 
ci6n, y que viene representada de la 
forma indicada a continuaci6n: 
INIR 
Una vez ejecutada dicha instruc- 
ci6n, el contenido del registro C se 
emplaza en la mitad baja del bus de 
direcciones para seleccionar un dis- 
positivo de entrada/salida en una de 
las 256 terminales posibles. 
El registro B se usa como un con- 
tador de bytes, y su contenido se em- 
plaza en la mitad alta del bus de di- 
recciones. 
Entonces se emplaza un byte del 
terminal seleccionado en el bus de 
datos y se escribe en la 
El contenido del registro par HL se 
coloca en el bus de direcciones y el 
byte de entrada se escribe en la di- 
recci6n de memoria correspordien- 
te. 
Una vez hecho esto, se incremen- 
ta el registro par HL y se decremen- 
ta el'contador de .bytes 
Si el decremento hace que B sea 
cero, la instrucci6n se da por finali- 
zada. Si por el contrario B no resul- 
ta ser cero se decrementa en dos el 
PC y se repite la instrucci6n. 
Si B se pone a cero antes de la eje- 
cuci6n de la instrucci6n, entrar6n 
256 bytes de datos. Tambi6n se re- 
conocer6n las interrupciones despu6s 
de cada transferencia de datos. 
Por ejemplo, si el contenido del re- 
gistro C es 7, el contenido del regis- 
fro B es 3, el contenido del registro 
par HL es 1000, y la siguiente se- 
cuencia de bytes es accesible al pe- 
rif6rico asignado con la direcci6n de 
terminal de entradalsalida 7: 
51 99 03 
entonces tras la ejecuci6n de 
INIR 
el registro par HL contendr6 1003, 
el registro B contendr6 0 y las direc- 
ciones de memoria tendr6n con con- 
tenidos que se indican: 

DIRECCION CONTENIDO 
1000 51 
1001 99 
1002 03 

Instrucci6n 
IND 

Otra de las instrucciones a estudiar 
es la que viene representada por: 
IND 
El contenido del registro C se emo 
plaza en la mitad baja del bus de di- 
recciones para sele¢cionar el dispo- 
sitivo de entrada/salida. 
El registro B puede utilizarse como 
contador de bytes y su contenido se 
emplaza en la mitad alta del bus de 
direcciones. 
Ahora un byte del terminal selec- 
cionado en el bus de datos y se es- 
cribe en la CPU. 
El contenido del registro par HL se 
emplaza en el bus de dire¢¢iones y 
se escribe el byte de entrada en la di- 
recci6n de memoria indicada por HL. 
Finalmente se decrementan el con- 
tador de bytes y el registro par HL. 
Si por ejemplo el contenido del re- 
gistro C es 7, el contenido del regis- 
fro B es 1 O, el contenido del registro 
par HL es 5000 y el byte 24 es acce- 
sible al perif6rico asignado con la di- 
recci6n del terminal de entrada/sali- 
da 7, entances tras la ejecuci6n de 
IND 
la direcci6n 5000 contendr6 24, el 
registro par HL contendr6 4999 y el 
registro B contendr 9. 

Y, por Oltimo, 
INDR 

La Oltima de las operaciones de en- 
trada y salida que vamos a estudiar 
es la que viene representada en la 
forma que se indica a continuaci6n: 

INDR 

Una vez ejecutada dicha instruc- 
ci6n el contenida del registro C se 
emplaza en la mitad baja del bus de 
direcciones para seleccionar el dispo- 
sitivo de entrada/salida correspon- 
diente. 
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El registro B es utilizado coma con- 
radar de bytes y su contenido se co- 
Iota en la mitad superior del bus de 
direcciones. 
Una vez hecho esta se emplaza un 
byte de terminal seleccionado en el 
bus de dabs y se escribe en la CPU. 
El contenido del registro par HL se 
emplaza en el bus de direcciones y 
se escribe el byte de entrada en la di- 
recci6n de memoria correspondien- 
te (la indicada par HL). 
Ahora se decrementan el registro 
par HL y el registro contador de 
bytes. 
Si el decremento hate que B sea 
cero entonces finaliza la instrucci6n 
de Io contrario el PC se decrementa 
en dos unidades y se repite la instruc- 
ci6n. 
Debemos tener en cuenta que si el 
registro B es puesto a cero antes de 
la ejecuci6n de la instrucci6n, entra- 
r6n 256 bytes de datos. Tambi6n se 
reconocer6n las interrupciones des- 
pu6s de cada transferencia de dabs. 
Si par eiemplo el contenido del re- 

gistro C es 7, el contenido del regis- 
tro B es 3, el contenido del registro 
par HL es 5000 y la siguiente secuen- 
cia de bytes es accesible al perif6ri- 
co asignado: 
20 54 09 
entonces despu6s de la ejecuci6n de 
INDR 
el registro para HL contendr6 4997, 
el registro B contendr6 0 y las direc- 
ciones de memoria correspondientes 
tendr6n los siguientes contenidos. 
DIRECCION CONTENIDO 
4998 20 
4999 54 
5000 09 
Un ejemplo tipico de este tipo de 
instrucciones, es la realizaci6n de la 
lectura de teclado, coma podemos 
ver en el ejemplo del programa nO- 
mero 1. En dicho ejemplo reallzamos 
una lectura de teclado, y si se est6 
pulsando la tecla <M>>, este es impri- 
mida en pantalla. 

Hi_oft GEMA3,1 A.-embler, 

A0()0 10 
20 
30 
40 
AO00 3E | 4 50 
Ao02 F3 60 
A003 01 2F7 70 
A006 ED49 80 
AO08 06F6 90 
AOOA ED?9 100 
AOOC r6F4 110 
A00E ED78 120 
Ar) lO 0182F7 130 
A013 ED49 140 
AO 15 FB 150 
A016 CB7 ? 160 
AO 18 20F6 170 
AOIA 3EqD 180 
Ar I C CD5ABB 1 
AO 1F 18DF 200 
A021 C9 210 

ORG #A000 
;LF'CTURA DE L.A TECL.A 

IMIC: 

LD A.#44 
D] 
LD BC #F'792 
OUT (C) . C 
LD B#F6 
OUT (C) .A 
LD B, #F4 
IN A, 
LD BC. #F782 
OUT (C) , C 
El 
BIT 6.A 
JR NZ INIC 
LD A "M" 
CALL #BB5A 
J R [ N I C 
RET 

F'BEs 2 error_ : r, 

T N I C" Ac'O r 

T3ble ued: 24 from 129 

I00.000 PESETAS 
CON MICROHOBB Y 

AMSTRAD 

SEMANAL 

Porque pretendemos que AMSTRAD 
SEMANAL sea tambi6n vuestra revista, 
hemos abierto una secci6n en la que se 
publicarcn los mejares programas origi- 
nales recibidos en nuestra redacci6n. Vo- 
sotros sereis los encargados de realizar 
estas p6ginas, en las que podr6is apor- 
tar ideas y programas interesantes pa- 
ra olros lectores. 
Las condiclones son sencillas: 
-- Los programas se enviar6n a AMS- 
TRAD SEMANAL en una cinta de casset- 
te, sin protecci6n en el software, de for- 
ma que sea posible obtener un listado de 
los mismos. 
-- Cada programa debe ir acompa- 
ado de un texto explicativo en el cual 
se incluyan: 
-- Descripci6n general del pragrama. 

-- Tabla de subrutinas y variables uti- 
lizadas, explicando claramente la 

funcidn de cada una de elias. 
-- Instrucciones de manejo. 
-- Todos estos datos debern ir escri- 
tosa m6quina o con letra clara para ma- 
yor comprensi6n del programa. 
-- No se admitir6n programas que 
contengan caracteres de control, debi- 
do a que no son correctamente interpre- 
tados par las impresoras. 
-- En una sola cinta puede introducir- 
se m6s de un programa. 
-- Una vez publicado, AM$1RAD SE- 
MANAL abonar6 al aurar del programa 
de 15.000 a I00,000 pesetas, en con- 
cepto de derechos de aurar. 
-- Los autores de los programas setec- 
cionados para su publicad6n, recibir6n 
una comunicaci6n escrita de ella en un 
plaza no superior a dos meses a partir 
de la fecha en que su programa Ilegue 
a nuestra redacci6n. 
-- AMSTRAD SEMANAL se reserva el 
derecho de publicaci6n o no del progra- 
ila. 
-- Todos los programas recibidos que- 
dar6n en poder de AMSTRAD SEMA- 
NAL. 
-- Los programas sospechosos de pla- 
gio ser6n eliminados inmediatamente. 

|ENVIANOS 
TU PROGRAMA! 

Adjuntando los siguientes datos: 
Nombre y apellidos,, 
direcci6n y telfono. 
Indicando claramente en el sabre: 

AMSTRAD SEA4ANAL 

a HOBBY PRESS, S. A. La Granja, 39 
Pol. Ind. Alcobendas (Madrid) 
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r,, tu prop  as 

Le sacarfis partido a tu ordenador 

RUTINAS EN LENGUAJE 
MAQUINA PAPA AMSTRAD 
Joe Pritchard 
1.5 90 ptas. 

, : .r" "..,.:.-:.. , , 
I ,;" "" .. "*: 
PRODICION 
AVANZADA DEL AMSTRAD. 
Don Yhomasson 
1.166 ptas. 

} ,I il tt tule 
IELIGENA ARTIFICL 
CONCEOS Y PROGMAS 
Tim HaneB 

: =- , : e,, ,,"  
' '( :i:" 
o . 
/  
I 
EL LIBRO GIGE DE LOS 
JUEGOS PA AMST 
K. Ber y A. Lacey 
1.378 t. 

r i-1Les ruego me envfen el catilogo de su editorial. 
] ' [] Les ruego me env/en los siguientes: t/tulos: 
I 

TOTAL 
I-1 Adjunto taldn bancario a 
GRUPO DISTRIBUIDOR EDITORIAL, S. A. 
r-I Pagard contrarrembolso (+ 125 pesetas de gasto de envfo). 
r-] Giro postal. 

Nombre 

Profesi6n 
Direcci6n 
C.P. 
Provincia 

Localidad 

Programaci6n 
del Z80 

Rod ny Zaks 

PROGRAMACION DEL Z 80 
Rodnay Zaks 
2. 915 ptas. 

CODIGOS Y CLAVES 
SECRETAS: 
CRIPTOGRAFIA EN BASIC. 
Listados para MSX, Spectrum, 
Amstrad, Corru'nodore 64, 
Apple II 
Gareth Greenwood 
1.378 ptas. 

AN,  ,  YA 

IMULTIMEDIAI 

Adquidralos en su libren'a habitual. 
Si no lees posible o desea que le enviemos nuestro catilogo, env'e este cup6n a: 
Apdo. de Correos 14632, Ref. D. de C. 28080 MADRID 



Hasta ahora, todos los simuladores de 
vuelo eran parecidos. Dam Busters aade 
a la emoci6n de pilotar un bombardero, el . 
aliciente de reproducir una hist6rica • 
incursi6n en la Alemania nazi. , " 

on los 22.30 horas de 
la noche de116 de mayo de 1943. En la cabi- 
na de mandos del bombardero pesado Lan- 
caster, todo funciona sin contratiempos; rum- 
bo noroeste nos aguarda la costa germana. 
Nuestra altura de vuelo ha sido cuidadosa- 
mente elegida; 700 pies por debajo de nues- 
tras alas, la-luna descubre las abruptas for- 
maciones rocosas de la costa. 
Por encima de los mil pies de altura, nues- 
tro aparato seria detectado por el radar en 
tierra, o interceptado por los patrullas de ca- 
za nocturnas. 
Una altitud inferior nos pondria en grave 
riesgo de colisi6n con obstculos en tierra, es- 
pecialmente al dirigirnos rumbo sur hacia el 
coraz6n de la Alemania nazi, donde 
abruptos valles y formaciones montaosas, to- 
dean nuestro objetivo: los presas de Moenhe, 
Eder y Corpe. 
Somos un miembro del escuadr6n 617 (el 
original Dam Busters), y nuestra misi6n es pri- 
var alas industrias del valle del Ruhr de su 
fuente m6s importante de abastecimientos de 
agua, asestando a la poderosa m6quina de 
guerra nazi, un golpe del que jam6s se po- 
dr6 recuperar. 
Cuando solamente hemos penetrado unas 
millas en la costa germana, un intenso haz lu- 
minoso surge de la oscuridad, escudrifiando 
el cielo en nuestra busca; el artillero abre fue- 
go sobre el punto en tierra, pero somos alcan- 
zados de Ileno por el haz, inundando de luz 
nuestra cabina. 
Tras 6sta, nuevas bases de bOsqueda noc- 
turna dirigen sus rayos hacia nosotros: esta vez 

el artillero tiene ms acierto y algunas de elias 
se desvanecen en la oscuridad. 
Los destellos luminosos nos permiten divisar 
las cadenas de globos cautivos, que nos obli- 
gan a efectuar un r6pido ascenso; 800, 1.000 
pies y en la lejania algo se aproxima r6pida- 
mente hacia nosotros. 
El artillero de cola, dirige instintivamente el 
cah6n de su ametralladora FN 20 hacia el ob- 
jeto no identificado; delante de nosotros, la si- 
lueta de un Messerschimidt Me 11 O, to- 
ma forma ametrallando el aire a nuestro al- 
rededor. 
El fuego de nuestras armas tiene 6xito, y las 
llamas que desprende el aparato iluminan su 
caida a tierra. Tras su ataque, otros miembros 
de la escuadrilla se dirigen a nosotros, con- 
virtiendo en un infierno la zona que nos ro- 
deo. 
Cuando conseguimos deshacernos de ellos, 
la situaci6n es desesperada, tres de nuestros 
motores arden en llamas y nuestros esfuerzos 
por apagarlos son in0tiles, hemos Ilegado de- 
masiado tarde, nuestro bombardero entra en 
p6rdida y una terrible explosi6n envia nues- 
tros restos a suelo alemcn. 
Menos mal que solamente se trata de un 
programa de ordenador, y no tenemos m6s 
que pulsar un tecla para intentar otra incur- 
si6n. 
Hemos conocido muchos juegos en los cua- 
les el tema central es pilotar un avi6n, pero 
ninguno de las caracteristicas y originalidad 
de ste. 
En los anteriores programas, siempre pilo- 
t6bamos cazas de combate, en los cuales s6- 
Io teniamos que preocuparnos de Iocalizar ca- 
zas enemigos en vuelo, ponernos a su cola y 
ametrallarlos hasta su explosi6n. 

En Dam Busters, nace un nuevo concepto 
de simulador de combate, esta vez maneja- 
mos un bombardero pesado, y hemos de ocu- 
parnos simultneamente de las tareas que rea- 
lizan sus seis tripulantes. 
De esta forma somos a la vez piloto, copi- 
Ioto, artillero de cola, artillero frontal, bom- 
bardero, y primer maquinista. Pero el hecho 
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que verdaderamente diferencia a este progra- 
ma de los dem6s, es la elecci6n de una ver- 
dadera misi6n de guerra y su reproducci6n 
con la mayor exactitud posible. 
Lejos de los anteriores simuladores de vue- 
Io, en los que despegar ya era un mrito, por 
la gran cantidad de indicadores y medidores 
a controlar, leniendo que utilizar paro ello m6s 

de una docena de teclas yen los que el joys- 
tick era demasiado impreciso para controlar 
el aparato. 
Pilotamos un avi6n francamente sencillo de 
dominar; solamente hemos de utilizar el joys- 
tick y siete teclas que nos sirven para cambiar 
de pueslo en la dotaci6n del avi6n. 
Una vez que estomos en determinada pan- 
lalla, el joystick se ocupa de todo; de esta ma- 
nera cualquier tarea se realiza grficamente, 
sin tener que sabernos de memoria un reper- 
torio de ms de 30 teclas, que seria el nece- 
sario para controlar este avi6n. 
En este aspecto hay que seffalar la facilidad 
con que se manejan los controles de los salas 
de mquinas; una vez en la pantalla de la sa- 
la de motores, nos encontramos con los cuo- 
tro medidores de inyecci6n, los medidores de 
inyecci6n de los cuatro motores, sus respecti- 
vas ocho palancas y las cuatro de los extinto- 
res de cada motor. 
Con tanta palanca e indicador, su manejo 
en contra de Io que podria esperarse, es in- 
mediato. Un toque de joystick, hate moverse 
un punto negro bajo el bloque de palancas. 
Una vez situado bajo la que queremos ac- 
cionar, basto con pulsar fuego y tirar el ioys- 
tick hacia arriba o abajo, m6gicamente la pa- 
lanca se mover6 en la direcci6n indicada. 
En caso de que deseemos mover simult6nea- 
mente las cuatro palancas, para conseguir el 
mismo efecto en todos los motores, s61o tene- 
mosque buscar la posici6n central con el punto 
negro, y a toque del joystick todas subir6n sua- 
vemente. 
Una tcnica f6cil y en la que no hay que pul- 
sar ninguna tecla, con Io cual nos hacemos con 
el control del avi6n en cinco minutos. En otros 
programas necesitamos colocar una plantilla 
sobre el teclado del ordenador, debido al gran 
nOmero de teclas usadas. 
La posici6n normal de navegaci6n es des- 
de la cabina del piloto; en ella observamos Io 
que hay al frente de nuestra marcha, gober- 
nando: brOjula, altimetro, horizonte ortificial 
y velocidad del aire. 
En cualquier situaci6n de peligro, un nOme- 
ro intermitente nos indico la pantalla en la que 
se encuentra ste, y con un toque de tecla es- 
tamos en ella al instante. 
Un caza alem6n aparece, se divisa desde 
la cabina del piloto, el nOmero dos aparece 
en el panel de mandos, un toque de tecta y 
estamos en Io ametralladora de cola dirigien- 
do el punto de mira hacia nuestro blanco, fue- 
go en el joystick y el caza cae en llamas. 
Tenemos uno sata de mapas, que contiene 
la regi6n geogr6fica que vo desde el sur de 
Inglaterra, hasta el centro de la Alemanla 
nazi. En la cartografia, aparece la posici6n 
de nuestro bombardero y los principales pun- 
los de defensa antiarea, adem6s de la posi- 
ci6n de los presas que abastecen a la indus- 
trio del Ruhr. 
Cuando el globo, avi6n c. haz luminoso apa- 
rece ante nuestros ojos, Io hate con realismo 
y autnlica sensaci6n de acercamiento. 

El dibuio utilizado en las distintas salas de 
mquinas, es hiperrealista y representa los ins- 
trumentos de navegaci6n a la perfecci6n; el 
utilizado en las distintas cabinas de tiro, o el 
del piloto, est6 realizado con un gran sentido 
de la perspectiva, pareciendo.realmente que 
nos encontramos dentro del aparato, en con- 
traste con la oscuridad que nos rodea. 
Un programa con una concepci6n totalmen- 
te nueva en los dedicados a aviones, f6cil de 
manejar, basado en un hecho hist6rico, yen 
el queen todo momento nos vemos ocupados 
en las distintas salas del aparato; de la sala 
de m6quinas a la de mapas, de la cabina del 
piloto a los distintas ametralladoras. Separ6n- 
dole mucha distancia de esos simuladores de 
combate, en los cuales despus de haber tar- 
dado unas dos horas en despegar, estamos mi- 
nutos y minutos persiguiendo a un supuesto 
caza, que media hora despus aparece fu- 
gazmente ante nuestras notices. Para alejar- 
se con extrema rapidez, o en el meior de los 
casos aniquilarnos de una certera r6faga de 
sus caffones ametralladoras, mientras nosotros 
buscamos inOtilmente la tecla de los misiles ter- 
modirigidos, entre un maremagnum de 
dos docenas y media de tedas de control. 
Con la diferencia esencial, de que nuestra 
Oltima misi6n consiste en lanzar nuestras bom- 
bas, a la altura, velocidad y distancia exac- 
tas, para reventar los poderosos muros de hor- 
mig6n de las presas alemanas. 
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UCLEUS 

AI adquirir un ordenador y plantear el tipo de Software que 
se necesita, los posibilidades van desde comprar un 
programa est6ndar hasta encargarlo a medida, o hacrselo 
uno mismo. En medio de estos extremos, diversos programas 
intentan facilitar la labor a los usuarios sin grandes 
conocimientos de programaci6n, pero que no encuentran un 
programa a su medida, y no desean encargarlo por alguna 
raz6n, normalmente de tipo econ6mico, dado el elevado 
coste de los mismos. Es en este sector donde se encuadra el 
programa NUCLEUS, y no es muy arriesgado decir que con un 
formidable porvenir. 

Omeros anteriores de 
esta revista, en esta misma secci6n y en la de 
Banco de pruebas, ban descrito distintos 
programas de Bases de datos con los que el 
manejo de grandes masas de info maci6n re- 
sultaba bastante simplificado. Alguno de ellos 
inclusa proporcionaba suficientes funciones de 
programaci6n para combinarlas y obtener 
programas para manejar dichos archivos de 
una manera compacta. Ya se ha dicho, que 
NUCLEUS estaba encuadrado en este seg- 
mento. Sin embargo, este programa no se pa- 
rece en nada a los anteriores. Es uno de los 
pocos programas en el que una persona con 
escasa idea de programaci6n y las ideas so- 
bre el programa que necesita muy tiaras, pue- 
de conseguir res)ltados verdaderamente 
asombrosos. Eso es asi, porque la filiosofia del 
programa es totalmente opuesta a la de los 
otros. 
Describir este programa resulta bastante 
ms complicado de Io habitual. En realidad no 
es tal programa sino un paquete de progra- 
mas, que vienen en TRES DISCOS, y con un 
voluminoso manual realizado en espaol. En 
honor a la verdad, debo decir que cuando em- 
pec a leerlo, no me enteraba absolutamen- 
te de nada. Las cosas empezaron a aclararse 
cuando Ilevaba leidas <<apenas doscientas 
veinte pginas del mismo. A partir de ahi, le- 
yendo y practicando, y despus volviendo al 
principio del manual, los resultados que ob- 
tuve me dejaron impresionado. El problema 
no es que el manual est6 real escrito, sino qui- 
zs que est6 mal ordenado. Claro que como 
viene en una carpeta de anillas, nada impide 
cambiar el orden. Desde luego, el primer con- 
sejo es empezar por la p6gina doscientos vein- 
re, donde define Io que es el coraz6n del 
programa, y una vez entendido y practi- 

I8 ,COHOeeY AMSTRAD 

NOMBRE Nucleus. 
TIPO Programa de utitidades. 
E(DUIPO 
MINIMO Amstrad PCW 8256. 
EQUIPO 
AcoNSEJADO Amstrad PCW 8256 o 
con otra unidad, d. e is, co; 
DISTRIBUIDOR OFITES Informatc_a:^, v,a" 
Isabel II, 16-80. Z(Jul  
San Sebasti6n. 
26.780. 

cado con esto, pasar a aprender las diversas 
posibilidades que proporciona. 
Qu hate este programa? Simplemente 
programas. Realiza programas en BASIC, 
que adem6s posteriormente se pueden listar, 
modificar y completar a gusto de cada uno, 
y sta es su principal ventaja. Es evidente que 
en principio, no se puede hacer un programa 
que contemple absolutamente todas las posi- 
bilidades de programaci6n en el 6rea de la 
gesti6n, pero estos programas tienen una gran 
parte que resulta a nivel de planteamiento, 
idntica. Esto es, la creaci6n de ficheros, la 
modificaci6n o actualizaci6n de los datos de 
estos ficheros, y la impresi6n de resultados, in- 
formes, etc... Todo esto, Io realiza Nucleus. 
C6mo? Vemoslo. 

Planteamiento 

A la hora de empezar a crear nuestro pro- 
grama con el Nucleus, Io primero que hay 
que hacer es apagar el ordenador. Despus, 
se coge 16piz y papel, y se piensa Io que se 
pretende. Los datos minimos que se van a ne- 
cesitar y que son importantes, para no tenet 
que repetir los procesos son: ngmero de ar- 
chivos, disefio de los registros de dichos archi- 
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vos, campos dentro de esos registros que es- 
tn relacionados con campos de otros archi- 
vos, y el campo o campos par los que se quiere 
ordenar o clasificar estos archivos. La modifi- 
caci6n de cualquiera de estos datos hace que 
la mayoria de los procesos que se hagan pos- 
teriormente, deban repartirse. Par tanto, es- 
tos datos son funda mentales. Ya con estos da- 
tos, se puede conectar el ordenador, y empe- 
zar a trabajar. 

Los discos 

Oado que el paquete contiene tres discos, 
es conveniente tener clara los funciones de ca- 
da disco: 
1. COMIENZO DEL DIA: Esta tara del dis- 
co es con la que se debe cargar siempre el pro° 
grama. Contiene los programas que adaptan 
el programa al ordenador, permiten utilizar 
el disco virtual, y proporcionan al acabar el 
programa la manera de trasladar los datos del 
disco virtual a otro disco de datos. Esto es fun- 
damental, y si se apaga el ordenador, antes 
de copiar los ficheros del disco virtual al de 
datos, todo Io hecho hasta ese momenta des- 
de que se empez6 la sesi6n de trabajo se pier- 
de. Este disco se necesita siempre. Los progra- 
mas realizados con el Nucleus, tambi6n nece- 
sitan para funcionar que este disco se cargue 
antes. 
2. MANTENIMIENTO DE DEFINICION: 
Esta cara del disco, realiza la tarea principal. 
Crea un fichero de parmetros, donde el pro- 
grama guarda las claves del programa, el me- 
nO principal de sociedades, y a tray,s de 61, 
se crear6n los ficheros que luego se utilizan en 
el programa. Se definen los archivos, el dise- 
fio del registro de 6stos y la posible relaci6n 
que haya entre campos de distintos archivos. 
Tambi6n, para que no falte un detalle, pro- 
porciona un listado de los datos introducidos, 
que ser necesario en las etapas posteriores 
de la aplicaci6n. Este listado se puede ver en 
una de las ilustraciones del articulo. 
3. CREACION DE PROGRAMAS. ACIUA- 
LIZACION: A trav6s del meng de esta cara se 
realiza el programa que crear los ficheros en 
el disco de datos, y el programa que permite 
actualizar de diversas maneras la informaci6n 
de dichos ficheros. 
4. GENERADOR DE INFORMES: El menO 
de esta tara es uno de los que permiten crear 
programas que realizan informes escritos de 
diversos tipos, incluyendo la realizaci6n de eti- 
quetas. 
5. CREACION DE PROGRAMAS. CARTAS: 
A troves de este menO se posibilita el dispo- 
ner de un editor de cartas o informes, de ma- 
nera que se le pueda enviar Io misma carta 
a cada cliente (par eiemplo) de manera per- 
sonalizada. 
6. CREACION DE PROGRAMAS DE DOo 
CUMENTO: Muy similar al anterior, en Io que 
respecta a la edici6n, este programa permite 

adems la realizaci6n de operaciones con los 
campos numricos, para realizar determinao 
dos documentos. El usa m6s clara de esta opo 
ci6n seria la realizaci6n de los n6minas de la 
empresa. 
Hasta aqui una breve descripci6n de los po- 
sibilidades de esta aplicaci6n. Pero este pro- 
grama merece una revisi6n m6s exhaustiva. 
Vamos a contar paso a paso, la creaci6n de 
un pequefio programa, explicando detallada- 
mente no s61o Io que hacemos, sino tambi6n 
Io que hace el propio programa. 

Descripci6n del programa 

En todos los casos, Io primero que hay que 
hacer es conectar el ordenador con el disco 
de CPIM Plus, e iniciar el programa con la 
tara del disco que pone: ¢omienzo del 
dla. El programa empieza preguntando y va- 
lidando la fecha actual. Despus, un mensaje 
permite cambiar de disco. Coma hay que em- 
pezar par el principio, se introduce la cara del 
disco: Mantenimienlo de definici6n. Nos 
aparece el meng de <<¢gmpaia>>,donde se 
selecciona la opci6n 1, y pasa al menO del sis- 
tema, que es el que permite a su vez pasar al 
menO principal de esta cara: MenO de pro- 
grama. Este menO tiene una serie de opcio- 
nes, que se van a usar en su totalidad. 
La primera opci6n, crea el fichero de par- 
metros Nucleus, que consevar6 informaci6n 
sabre Io que se realice despu6s. Esta informa- 
ci6n incluir6 la descripci6n del sistema y todos 
los datos necesarios para acceder a los fiche° 
rosy programas siguientes. 
Lo segunda opci6n es <<Mantenimiento 
de definici6n de sistemm. A travs de 
6sto, se crea el nombre del conjunto de pro- 
gramas que se van a realizar despu6s. A ca- 
da sistema, y se puede crear ms de uno, se 
le da un nombre, un c6digo de dos letras que 
ser6n posteriormente incluidas en los nombres 
de todos los programas y ficheros, coma me- 
dia de identificarlos y distinguirlos de los que 
puediera haber en otras aplicaciones, y un nOo 
mero a trav6s del cual se selecciona este sis- 
tema en los primeros menOs. En este proceso 
s61o hay que tecleor el nombre y la clave del 
sistema que se va a crear, dado que el nOme- 
ro Io proporciona autom6ticamente el sistemo. 
El siguiente paso seria ira la tercera opci6n, 
Mantenimlento de definlci6n de fl- 
chero>>, a lravs de la cual se crean los fi- 
cheros que se van a utilizar. Cada vez que se 
da de alto un fichero, el ordenador pide si el 
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fichero vo o ser Maestro o de Transacciones, 
y despus se pasa a introducir, uno por uno, 
los campos de dicho fichero. Dado que estos 
ficheros son indexados, uno o m6s -hasta 
cinco- campos se deben indicar como cam- 
pos cloves, para la ordenaci6n y Iocalizaci6n 
de los registros. En este sentido, uno de esos 
campos clave debe ser siempre el primero que 
se introduzca. De cada campo, el programa 
nos pedir6 el nombre, si el campo es numri- 
co, alfanumrico, de fecha o de escritura ar6- 
biga. Seggn la contestaci6n que se le d a es- 
ta pregunta, el programa pedir6 el nOmero de 
caracteres y las lineas que ocupa en el caso 
de olfonumri¢o, y nOmero de decimales, 
valor m6ximo y minimo, y negativos en el ca- 
so numrico. Despus pasa a pedir el slguien- 
te campo, y asi hasta que se d por termina- 
da la intruducci6n de campos. Una opci6n muy 
interesante es la posibilidad de impedir pot se- 
parado la modificaci6n de algOn campo. Una 
vez acabada esta tarea, el programa pide que 
se defina el o los campos que servir6n de cla- 
ve de indexaci6n, pudiendo otorgar a estas 
claves otro nombre alternativo al que tiene en 
el fichero, y una Iongitud menor. Esto es par° 
ticularmente Otil para reducir el tamaSo de las 
tablas de indexaci6n, en el caso de desear cla- 
sificar un fichero por un campo cuya Iongitud 
total sea excesiva, pudindose asi acortar di- 
cha Iongitud s61o en la indexocin. Los 
campos que se designen como clave son fun- 
damentales, a la hora de poder relacionar los 
registros de un fichero con los de otro. Esto 
debe hacerse siempre a travs de dichos cam- 
pos. Por ejemplo, si tenemos un fichero don- 
de se almacenan las horas extras realizadas 
por esos empleados, los dos ficheros se pue- 
den relacionar mediante un campo que fuese 
el ngmero de empleado. Pues bien, este cam- 
po deber estar en los dos ficheros, y ser una 
clave en al menos uno de ellos. Una vez crea- 
dos los ficheros que se vayan a necesitar, se 
vuelve al menO principal. 
Si se tienen dos o m6s ficheros, y se desea 
conectarlos entre sF, hay que pasar despus 

por la opci6n cuatro: <<Mantenlmientos 
de conexiones de ficheros donde se 
especificar6 el nombre del sistema, fichero y 
campo que se quieren relacionor con otro sis- 
tema, fichero y campo. La informaci6n que 
proporciona el programa es magnifica, dado 
que cada vez que se debe seleccionar un sis- 
tema, fichero o campo, aparecen en pantalla 
los nombres entre los que hay que elegir. AI 
menos uno de los campos que se seleccionen 
para relacionar debe haber sido especificado 
como campo clave. 
La Oltima opci6n de este meng imprime to- 
da la informaci6n introducida hasta el momen- 
to. Esto es de suma importancia dado que mu- 
chas veces no se puede tener toda la informa- 
ci6n en la cabeza, y conviene disponer de un 
recordatorio. Imprime el diseSo de los regis- 
tros, nombres, conexiones con otros ficheros, 
yen fin, cualquier informaci6n que se pueda 
necesitar posteriormente. 
Hasta aqui se ha completado la etapa ms 
importante y vital de la creaci6n del progra- 
ma. Los datos hasta ahora introducidos, se po- 
drian modificar en cualquier momento, pero 
entonces los procesos realizados a continua- 
ci6n deberin volverse a realizar, dado que 
no se actualizan autom6ticamente. 

0 EHTPJ)S 
Hero de Sistma 

Creaci6n de los programas 
de entrada 

La mayoria de los programas tienen dos par- 
tes bien diferenciadas. Son el proceso de en- 
trada de datos, y el proceso de salida de da- 
tos, una vez procesados. Para creor los pro- 
gramas que se encargan de la entrada de dao 
tos, se introduce la cara del disco etiquetada 
como: <Creaci6n de programas. Ac- 
tualizaci6n. Se pasa por los menOs de 
Compaia y Sistema, y al Ilegar al menÙ de 
Programa aparecen tres opciones. AI seleccio- 
nor la primera, <¢rear programa de 
creaci6n de ficheros>, el programa pi- 
de que se seleccione el sistema, entre los que 
se hayan creado. Despus aparece el nOme- 
ro de lineas que el programa genera. En este 
momento, Nucleus est generando un progra- 
ma en Basic, que crear6 los ficheros en el dis- 
co en el que se ejecute. Ser6 pues, la primera 
opci6n del menO de este sistema. Si el menO 
no ha sido creado ya por otro programa, pre- 
gunta si se desea crear el menO, yen este ca- 
so la respuesta ser6 afirmativa. El programa 
crea un menO para este sistema, donde iron 
apareciendo los nombres de los programas 
que se generen. 
El siguiente paso seria crear un programa 
de actualizaci6n. A travs de 1 se introduci- 
rgn los datos en los ficheros ya creados. Pri- 
mero pregunta para qu fichero, habr6 que 
crear un programa. En caso de ms de un 
chero, habr que crear un programa para co- 
da fichero. Una vez elegido el fichero, presen- 
ta los campos del mismo, y pregunta si se quie- 
ren actualizar todos los campos. Esto es por 
si el valor de algOn campo debe producirse 
automaticamente en vez de manualmente, en 
cuyo caso el programa no pedir ese dato al 
hacer funcionar el programa. Una vez selec- 
cionados los campos a actualizar, viene la fa- 
seen la que se diseSa la pantalla de petici6n 
de datos. Para esto, el programa presenta ca- 
da campo con su posici6n de comienzo y fi- 
nal, y Io mismo para los datos que ir6n en di- 
chos campos. Si no se est6 de acuerdo con esa 
pantalla, se puede modificar a voluntad. El 
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programa avisar6 si alg0n data se solapa con 
atro. Una vez conforme con los datos presen- 
tados, se puede realizar una prueba de la pan- 
talla, y si no se est6 de acuerdo al vefla, se 
puede volver a la pantalla anterior y modifi- 
carla. Una vez dada la conformidad, el pro- 
grama pregunta si ser6 un programa permao 
nente o temporal. Algunos programas no tie- 
nen par qu ser permanentes. Se puede neo 
cesitar realizar alg0n informe que luego no 
tenga utilidad, y no hay par qu ocupar es- 
pacio en el disco innecesariamente, en cuyo 
caso se le da la opci6n temporal. Una vez que 
se apague el ordenador, este programa se boo 
rrar6. Si se elige que sea permanente, Nucleus 
pregunta ((Descripci6n)), y el nombre que 
se le d ser6 el que aparezca en el meng de 
este sistema. No obstante, en cualquier mo- 
menta se puede modificar cualquier men0, de 
una manera de la que se hablar6 posterior- 
mente. 
Si se actualiza un campo que haya sido pre- 
viamente definido coma campo de conexi6n 
entere los ficheros, se podr6 optar par presen- 
tar y utilizar datos del registro del campo coo 
nectado, que ser Iocalizado automticamen- 
te. Esto da la posibilidad, entre otras cosas, 
de tener en un fichero maestro los datos per- 
sonales e introducir en otro fichero maestro los 
datos personales e introducir en otro fichero 
de transacciones otro tipo de datos, tales co- 
ma facturas, registrar las horas .... y asi, cuan- 
do se d en el fichero de transacciones el n0- 
mero de cliente o empleado, el programa lee 
del fichero maestro unos datos y del de tram 
sacciones otros de una manera casi instant- 
nea. 
Antes de acabar con el apartado de introo 
ducci6n de datos, hay que explicar que los me- 
nOs que aparecen en la aplicaci6n y los que 
genera con nuestros programas se pueden moo 
dificar. Para hacerlo, cuando pide el n0mero 
de opci6n hay que introducir ((MAD)). Nu- 
cleus impide la modificaci6n de stos par per- 
sonas autorizadas mediante el usa de palabras 
clave. AI solicitar la modificaci6n de alg0n me- 
n0, pide la palabra clave. Si no se ha modifi- 
cado la clave, sta es en todos los menOs 
((XXX)) pero se puede modificar par cual- 
quier combinaci6n no mayor de seis caracte- 
res. Mediante estas claves tambin se puede 
impedir el acceso a determinadas opciones de 
cualquier menÙ creado. Es fundamental no ol- 
vidar la clave crada, dado que no hay mane- 
ra de visualizarla y se podria inutilizar algOn 
proceso. 

Creaci6n de Ios programas 
de salida 

Una vez que ya se tienen los programas y 
ficheros destinados a introducir los datos en 
el archivo, pasamos a la segunda parte. Esto 
es, sacar dichos datos mediante la impreso- 
ra, segOn nuestras necesidades. Para esto, Nu- 

cleus dispone de Ires programas distintos, aun- 
que su fin es parecido. 
El primero est en la cara etiquetada coma 
<Generador de Informes,). Este programa es- 
t6 destinado principalmente al listado del con- 
tenido de ficheros, y tres opciones permiten se- 
leccionar el tipo de informes deseado, con bas- 
tante flexibilidad. La primera opci6n es 

distintas, y que las cumplan todas, o que cum- 
plan alguna de elias. Despus de seleccionar 
los registros que ser6n impresos, pregunta si 
se desea linea de totales, si 6sta debe estar al 
final de cada pgina, tambin cada vez que 
cambie la clave, o s61o al final del informe. 
Posteriormente, pregunta de qu campos rea- 
liza dichos totales, pudigndose seleccionar los 
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(Crear programa de Impresi6n MIF)), 
y realiza un programa que ]ista totalmente un 
fichero dado. Esta opci6n no permite elegir 
ning0n formato, imprimiendo el fichero con to- 
dos los campos y cabeceras. 
La segunda opci6n es <Crear programa de 
reporte seleccionado. Esta opci6n permite 
elegir los campos del registro que se desean 
imprimir, y si algunos de estos campos son 
campos conectados con otros ficheros, permite 
tambi6n imprimir datos correspondientes a ese 
otro fichero. Una vez seleccionados los cam- 
pos a imprimir, aparece una pantalla que des- 
cribe la manera en la que el programa distrio 
buye los campos en el papel. Despus, pre- 
gunta si se desea modificar la posici6n de im- 
presi6n de alg0n campo, y cuando se est6 con- 
forme, realiza una prueba de impresi6n. Una 
vez dada la conformidad definitiva, permite 
decidir par qu campo se desea que salga el 
informe, y la parte m6s importante de esta op- 
ci6n, que es seleccionar los registros que van 
a ser impresos. Para esto, presenta una pan- 
talla desde la cual se pueden elegir las condi- 
clones que deben cumplir los registros a im- 
primir. Estas se refieren principalmente a que 
los campos de los registros sean mayores, me- 
nares, iguales .... a otros campos o a alguna 
expresi6n. Se permiten hasta tres condiciones 

que se considere oportuno. Coma se puede 
ver, los informes que se pueden hacer median- 
te esta opci6n no pueden ser m6s completos. 
La 01tima opci6n de esta secci6n es la im- 
presi6n de etiquetas. Para esto Io primero que 
se hace es definir el tipo de etiquetas que se 
van a usar, Ionguitud y ancho de las mismas 
en pulgadas, ngmero de etiquetas par linea, 
y naturalmente el fichero del que se van a im- 
primir y los campos de dicho fichero que se 
van a imprimir. Si se imprime algOn campo de 
conexi6n con otro fichero, permite imprimir 
tambin datos de dicho fichero, y adems avi- 
sa si alg0n campo de los dados para ser im- 
presos, excede de la Iongitud de la etiqueta. 
Naturalmente, despugs proporciona una prue- 
ba de impresi6n, y permite elegir el campo par 
el que se van a imprimir ordenadamente las 
etiquetas, y qu6 registros se deben imprimir, 
de manera idntica a la usada en el reporte 
seleccionado, que se ha explicado anterior- 
mente. Hasta aqui el programa contenido en 
la cara del disco ((Generador de infor- 
Pasando a la siguiente cara de disco, sto 
est etiquetada coma (¢rea¢i6n e ptg- 
gramas 8e Cartas. La utilidad de este 
programa est6 en la posibilidad de disponer 
de un formato de carta, con algunos campos 
,coYoY AMSTRAD 2I 



que se rellenen autom6ticamente con datos de 
los ficheros. Se dispone para ello de un peque- 
no editor de textos, manejado por teclas de 
funci6n que son definidas por el usuario. Pa- 
ra definir o modificar dichas teclas se usa la 
opci6n uno del meng, Corregir pardmetros 
edici6n. Una vez adaptado el editor a nues- 
tros gustos, se pasa a la opci6n dos, crear 
programa de cartas, donde se elige el fiche- 
ro y campos cuyos datos se van a fusionar con 
la carla, el orden en el que se imprimir6n las 
cartas, y seleccionar igual queen los progra- 
mas anteriores qu6 registros van a ser impre- 
sos. Una vez hecho esto, la definici6n del pro- 
grama de cartas estar6 terminado, y se vol- 
ver6 al meng. Entonces habr6 que crear el tex- 
to de la carla, a trav6s de la opci6n Ires, 
Crear y modificar texto de cartash 
La pantalla muestra entonces los campos de 
los ficheros dispuestos para ser fusionados, jun- 
to con su Iongitud y el c6digo que debe incluir- 
seen la carla para que Io susliluya por dicho 
dato. Despu6s se entra en el editor de Texto. 
Primero se definen los m6rgenes de impresi6n, 
y ya se est6 listo para describirla de la misma 
manera que si se estuviera ante una m6quina 
de escribir. La pantalla presenta la carla, el 
nOmero total de lineas imprimibles, nOmero de 
lineas hasta el final de la p6gina, lineas no im- 
primibles, etc. AI pulsar la tecla STOP apare- 
ceen la parle superior de la pantalla la lista 
de opciones de texto disponibles, y que son las 
normales en este tipo de programas. Ademgs, 
avisa si no se deja espacio suficiente para fu- 
sionar los campos del registro. Naturalmen- 
re, tambi6n prevee la posibilidad de hacer una 
prueba de impresi6n. 
A travs de esta opci6n tambi6n se puede 
modificar una carta que ya exista, pero para 
borrar una carta hay que seleccionar la op- 
ci6n cuatro, borrar carta. De esta manera se 
elimina la carta del disco, liberando espacio 
en 61. 
La 61tima cara del 61timo disco viene en la 
aplicaci6n Nucleus est6 etiquetada como 
Creaci6n de programas de Docu- 
mento. Los programas de esta cara del dis- 
co est6n pensados para tanto rellenar impre- 
sos con campos de los ficheros de transacci6n, 
como para generar documentos que requie- 

ran de dichos datos, y de operaciones que se 
realicen con ellos. Un ejemplo claro podria ser 
realizar la n6mina de una empresa, en la que 
figuraria el nombre del empleado, los diver- 
sos conceptos por los que cobra, las deduc- 
clones y el sueldo neto. Para ello se dispone 
de las mismas facilidades de edici6n de texto 
y selecci6n de ficheros y campos queen los 
programas anteriores, proporcionando las li- 
neas de total necesarias, en los campos que 
se le indiquen etc... 

Todavia hay m6s 

Si bien esto es todo el programa, no se ha 
dicho todo de 61. Desde luego, una descrip- 
ci6n m6s exhaustiva Ilevar6 toda la revista, pe- 
ro hay caracteristicas que no se pueden dejar 
en el tintero. Por ejemplo, si usted ha leido este 
articulo buscando un programa que realice es- 
to y Io otto, y al Ilegar a este punto no ha en- 
contrado determinada caracteristica, no se de- 
silusione. La estructura de esta aplicaci6n no 
s61o permite sino incluso invita a que los pro- 
gramas realizados se complelen. Naturalmen- 
te, para completarlos hate falta saber BASle, 
pero dado que el trabaio sucio Io da hecho, 
no resulta dificil completarlo o modificarlo li- 
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geramente. Esto es f'6cil dado que todos los 
programas que Nucleus realiza son en Basic, 
no est6n protegidos, y la informaci6n necesa- 
ria se puede obetener de una u otra manera. 
La estructura de los menOs estd muy bien 
conseguida, y siempre valida los datos intro- 
ducidos, evitando asi cualquier error. La 
sibilidad de introducir claves, resulta un gran 
acierto. La informaci6n suministrada pot pan- 
talla resulta excelente, no ofreciendo ninggn 
problema en este aspecto. 
El Onico problema con el que se pueden en- 
contrar es si su ordenador s61o dispone de una 
unidad de disco. En ese caso, se utiliza el dis- 
co virtual como disco de almacenamiento, y 
sobre todo al principio, hasta que se coge la 
costumbre de interrumpir la tarea de vez en 
cuando para hacer Backup de dicho disco en 
otro de datos, el disco virtual se Ilena f6cilmen- 
re, y el programa se queda colgado, perdien- 
do el proceso que se est6 realizando. Es qui- 
z6s Io 0nico con Io que hay que tener espe- 
cial cuidado. Los afortunados que dispongan 
del nuevo PeW $$1 2 con dos unidades de 
disco disfrutar6n de ese programa en un gra- 
do mucho mayor, hasla el punto de que mu- 
chos usuarios de18256 se pensar6n seriamente 
el adaptar la segunda unidad. 
La impresi6n sacada del uso de este progra- 
ma es francamente buena. No es que Io pue- 
da hacer todo, pero este programa Iogra eli- 
minar el lrabajo m6s repetitivo y pesado de 
la programaci6n de gesti6n. Por otro lado, es 
fgcilmente adaptable para la realizaci6n de 
un sinfin de tareas, y al alcance del usuario 
medio. No se aprende a manejar en diez mi- 
nutos, pero una vez que se domina se puede 
competir f6cilmente con programas comercia- 
les. L6stima que el manual de inslrucciones que 
le acompaa no resulte tan bueno. Hay face- 
tas que es mejor aprender probando, pues se 
tarda menos tiempo que leyendo. No obstan- 
re, esto quiz6s es el resultado de una mala es- 
tructuraci6n de dicho manual, no del conte- 
nido del mismo. Pero el resumen del progra- 
may del manual es muy bueno. 
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PROGRAMAClON 

FUNClONAL Y LISP 

Roberto Garrote 8ernal 

Hoy en dfa se considera que exlsten al menos dos 
grandes familias de lenguaies de programaci6n: 
lenguajes imperativos y lenguajes funcionales o 
aplicativos. 

E n lenguoje imperativo 
es el que realiza sus obietivos mediante el cam- 
bio de valor de las variables a tray,s de la 
asignaci6n. Entre estos lenguajes se encuen- 
tran BASIC y Pascal. Los lenguajes impe- 
rafivos est6n bien adaptados a los procesado- 
res que se emplean actualmente, pero est6 em- 
pezando a aparecer un tipo diferente de com- 
putadoras, que se caracteriza par la gran can- 
tidad de procesadores que utilizan. La poten- 
cia que nos ofrecen estas m6quinas no se pue- 
de aprovechar bien con los lenguajes impe- 
rativos, raz6n par la cual se est6n adoptando 
los lenguajes funcionales. 

CDR, CONS, COND ytambin +. Para deft- 
nir las dos funciones de m6s arriba escribiria- 
mos: 
> (DE SUMA (X Y)(+X Y)) 
> (DE SUMA3 (X)(+ X 3)) 
(Os recuerdo que con el Especial AMS- 
TRAD n. ° 2 se regala un int6rprete de LISP. 
Para entender la serie de articulos sabre Inte- 
ligencia Artificial que vamos a escribir en es- 
ta revista no es necesario tenerlo, pero te se- 
r6 de gran ayuda. La versi6n de LISP que he- 
mos diseffado, MINILISP, sigue bastante al 
Standard LISP en Io que a funciones b6sicas 
se refiere, pero tambin cuenta con algunas 
caracteristicas especiales de las que haremos 
usa en algunos momentos. En particular, los 
ejemplos de LISP que aparezcan en los arti- 
culos de esta secci6n estar6n escritos en MI- 
NILISP). 

Lenguajes 
y funciones 

Un lenguaje oplicotivo, coma LISP, es el 
que consigue sus obietivos medionte la apli- 
caci6n de funciones a argumentos, para Io cual 
no necesita modificar valores de variables. La 
primera pregunta que puede surgir es: qu 
es una funci6n? Una funci6n es una regla que 
hace corresponder a cada lupla de argumen- 
tos un valor. Par ejemplo, la funci6n hace co- 
rresponder a cada par de nOmeros su suma. 
Una funci6n se puede definir dando una re- 
gla para calcular el valor que toma la funci6n 
para cada argumento, coma par ejemplo: 
suma3(x):=x+3 
El simbolo dos puntos-igual (: =) debe leer- 
se coma se define como,. Par tanto, la fun- 
ci6n suma3 se define coma el valor del ar- 
gumento m6s 3. Para representar funciones 
de esta forma hay que suponer que existen al- 
gunas ya definidas y que podemos utilizarlas 
sin preocuparnos de c6mo se calculan: s61o nos 
importa cu61 es el valor que devuelven para 
unos argumentos concretos. Estas funciones se 
Ilaman primitivas,. En los ejemplos anterio- 
res hemos supuesto que la funci6n  +  era una 
funci6n primitiva y par tanto estaba definida. 
Algunas funciones primitivas de LIPS son CAR, 
24 /cooBY AM$1'RAD 

C6mo se crea 
una funci6n LISP 

La palabra DE quiere decir que Io que si- 
gue es la definici6n de una funci6n. Despu6s 
de DE se escribe el hombre de la funci6n que 
queremos definir.. SUMA y SUMA3 en nues- 
tros casos. Tras el hombre de la funci6n se co- 
Ioca la lista de sus par6metros. Los par6me- 
tros de una funci6n son los valores de los que 
depende su resultado. Hay dos tipos de pa- 
r6metros: par0metros formales, que son los 
que aparecen en la definici6n de la funci6n, 
y par6metros actuales, que son los valores con 
los que se llama a la funci6n. 
Par eiemplo, X e Y son los par6metros for- 
males de la funci6n SUMA, mientras queen 
la Ilamada (SUMA 2 3)los par6metros actua- 
les son 2 y 3. Los parmetros formales se usan 
en la definici6n de una funci6n coma si rue- 
sen variables. Cuando se llama a una funci6n 
los par6metros formales se digan) a los pa- 
r6metros actuales para calcular el valor de la 
funci6n, es decir, a los par6metros formales 
se les asigna el valor de los par6metros actua- 
les. En la Ilamada (SUMA 2 3), X estaria li- 
gada al valor 2 e ¥ al valor 3. 
El proceso par el cual se ligan .p.armetros 

formales a por6metros actuoles se llama pa- 
so de par6metros. Este meconismo de 
paso de par6metros es el que hace innecesa- 
ria la asignaci6n en un lenguaje de progra- 
maci6n funcional. 
Pero buena, no est6bamos hablando de c6- 
mo se definian-funciones en LISP? En efecto. 
Deciamos que tras el hombre de la funci6n ha- 
bia que colocar la lista de sus par6metros. Hay 
algunas funciones que no tienen par6metros, 
coma par ejemplo: 
> (DE TONTA 0 (NIL)) 
(Hay algunas funciones un poco m6s distas 
que tampoco tienen par6metros). Para las fun- 
ciones sin par6metros se debe escribir 0, que 
representa a la lista vacia, en lugar de la lista 
de sus argumentos. Una vez que se han dado 
los argumentos hay que proporcionar la re- 
gla con la cual se van a calcular los valores. 
En el caso de los dos primeros ejemplos, 5U- 
MA y SUMA3, estas reglas son (+ X Y) y (+ 
X 3), respectivamente. MOs adelante insistire- 
mos en c6mo se definen funciones en LISP, Asi 
es que iseguro que acabas aprendiendo! 

Funciones que usan 
funciones 

Qu tipo de cosos se pueden utilizar paro 
definir funciones en LISP? Buena, ya hemos vis- 
ta que se pueden utilizar las funciones primiti- 
vas. Ademgs, podemos emplear las funciones 
que hemos definido nosotros para construir 
nuevas funciones m6s complicadas. 
> (DE SUMAS (X)(SUMA2 (SUMA3X))) 
El usa de unas funciones pora calcular los 
valores de arras se llama composici6n funcio- 
nal yes fundamental en los lenguajes aplica- 
tivos. En la definic6n de SUMAS hemos em- 
pleado las funciones 5UMA y 5UMA 3. La 
funci6n SUMA tiene dos argumentos: el pri- 
mero es 2, pero el segundo es (SUMA3 X). 
C6mo se entiende el geniecillo de MINILISP 
con este segundo argumento. La respuesta es 
que debe evaluarlo. Evaluqu? Evaluarlo. El 
intgrprete de LISP debe calcular el valor de 
(SUMA3 X) para saber que tiene que SUMAR 
con 2. Apliquemos SUMA6 a un argumento 
concreto para ver c6mo calcula el intrprete 
de LISP su valor. Si esters leyendo este articulo 
delante de la computadora y tienes el genio 
de MINILISP dispuesto a servirte y ya le has 
dado las definiciones anteriores, entonces ha- 
,'ias bien en escribir 
> (TRACE ' (SUMA SUMA3 SUMAS)) 
con Io que conseguir6s la traza de las fun- 
ciones SUMA, SUMA3 y SUMAS cuando se es- 
tin eiecutando. (La traza de una funci6n es el 
valor de sus argumentos cuando stos han si- 
do evaluados y el valor de la funci6n cuando 
ha sido calculado. Sigue leyendo que ahora 
vienen los ejemplos y Io entender6s mejor.) 



Ahora le pedimos a nuestro genio que calcu- 
le 
> (SUMA5 4) 
La respuesta de MINILISP es la siguiente: 
,GUMENTO DE EVAL: 
(SUMA6 4) 
ARGUMENTO(S) DE SUMA5: 
(4) 
ARGUMENTO(S) DE SUMA3: 
(4) 
VALOR DE SUMA3: 
7 
ARGUMENTO(S) DE SUMA: 
VALOR DE SUMA: 
9 
VALOR DE SUMA5: 
9 
TIEMPO 2.62 VALOR: 
9 

;.Qu significa 
todo esto? 

Voy a explicar un poco todo esto. Los pun- 
tos suspensivos nos indican que el genio ha lei- 
do nuestra orden y se ha puesto a pensar c6- 
mo Ilevarla a cabo. AI poco tiempo de apa- 
recer estos puntos el genio escribe ARGU- 
MENTO DE EVAL:) y Io que ha leido, 
(SUMA5 4) en nuestro caso, para que asi po- 
damos comprobar si esto es Io que de verdad 
querfamos de 61. A partir de aqui empieza a 
actuar la funci6n TRACE, que est6 siempre a 
la espectativa de encontrar una funci6n que 
trazar. Para evaluar (SUMA5 4) hay que cal- 
cular primero el valor de su argumento. Co- 
mo el valor de 4 es 4, la funci6n TRACE nos 
Io indica con el mensaie 
ARGUMENTO(S) DE SUMAS: 
4 
El intrprete de LISP ,asigna el valor del ar- 
gumento reci6n calculado al par6metro for- 
mal correspondiente. Para pensar c6mo Io ha- 
ce el int6rprete de LISP podemos imaginarnos 
que al hacer esta asignaci6n se sustituye el pa- 
r6metro formal, x, por su valor actual, 4. En- 
tonces el valor de (SUMA5 4) es el mismo que 
el de (SUMA 2 (SUMA3 4)). Se intenta ahora 
trazar la funci6n SUMA, pero el geniecillo se 
encuentra con que el segundo argumento 
no Io conoce: (SUMA3 4). El genio hace un 
alto en su camino y se dedica a calcular 
(SUMA3 4). De SUMA3 ya conoce los valo- 
res de sus argumentos -en este caso s61o tie- 
ne uno-, pues el valor de 4 es 4, asi es que 
puede comenzar a trazar esta funci6n 
ARGUMENTO(S) DE SUMA 3: 
4 
Para calcular el valor de (SUMA3 4) basta 
sumar 3 y 4, asi que Io calcula y nos devuelve 
su valor 

VALOR DE SUMA3: 
7 
En este momento el int6rprete de LISP ya co- 
noce los valores de todos los argumentos de 
la funci6n SUMA, raz6n por la cual puede em- 
peznr a trazarla 
ARGUMENTO(S) DE SUMA: 
Como para calcular el valor de la funci6n 
SUMA s61o se usa la funci6n + y 6sta no hay 
que trazarla (porque no se Io hemos dicho, 
que si no...), entonces la funci6n TRACE nos 
entrega el valor de (SUMA 2 7) 
VALOR SUMA: 
9 
Este valor pasa a ser el valor de la funci6n 
SUMA5 y asi se nos indica 
VALOR DE SUMA5: 
9 
Como ya ha calculado Io que le hemos pe- 
dido nos informa del tiempo que ha consumi- 
do y nos vuelve a indicar el valor. Estas dos 
01timas informaciones nos las da siempre, es- 
t6 o no activada la funci6n TRACE, pues en 
otro caso no habria forma de saber cugl es el 
resultado de los c6mputos (esto @imo no es 
completamente cierto. En posteriores articu- 
los ya veremos c6mo se le puede ordenar al 
geniecillo de MINILISP que escriba). Aho- 
ra puedes comparar resultados desadivando 
la funci6n TRACE. Para ello puedes escribir 
> (UNTRACE (TRACE())) 
con lo que no frazar6 ninguno funci6n, o bien 
> (UNTRACE '(SUMA3 SUMAS)) 
con Io que s61o deja de trazar las funciones 
SUMA3 y SUMA5. AI pedirle de nuevo que 
calcule (SUMA5 4) observargs que tarda me- 
nos tiempo. Esto es porque ahora no se en- 
tretiene en escribir la traza de las funciones. 
Aparte de la composici6n de funciones exis- 
ten otras dos formas de construir funciones en 
LISP: mediante expresiones condicionales y 
usando recursi6n. Ahora mismo explico to- 
do esto.> Las expresiones condicionales equi- 
vaten a la instrucci6n IF... THEN... ELSE... del 
BASIC. Las expresiones condicionales se in- 
dican mediante la funci6n COND. Veamos un 
ejemplo 
> (DE OPUESTO (X) (SUB O X)) 
> (DE ABSOLUTO (X)) 
> (T (OPUESTO X)) 
>)) 
La funci6n OPUESTO nos devuelve el opues- 
to de su argumento, o sea, el argumento cam- 
biado de signo. Por ejemplo (OPUESTO 3) va- 
le -3 y (OPUESTO -7) es 7. La funci6n AB- 
SOLUTO devuelve el valor absoluto de su ar- 
gumento, por Io que (ABSOLUTO 3) vale 3, 
pero (ABSOLUTO -7) vale 7. En la definici6n 
de ABSOLUTO se emplea una expresi6n con- 
dicional. Vamos aver cu61 es su significado. 
Despu6s de la palabra COND se escriben 

pares de expresiones: el primer elemento del 
par es Io que se pregunta y el segundo es el 
valor que toma la funci6n en el caso de que 
la respuesta a la pregunta sea afirmativa. El 
primero de estos pares es (( > x 0) x} que equi- 
valdria a la instrucci6n de BASIC 
IF X> O THE ABSOLUTO=X ELSE... 
En LISP, los valores booleanos (cierto, fal- 
so) se representan pot T y NIL respectivamen- 
te. Sin embargo, se considera que la respues- 
ta a una pregunta es cierta si no es NIL yes 
falsa si es NIL. Es deck, que cualquier cosa que 
no sea NIL se puede considerar como cierto. 
Por Io tanto, el segundo par, (T (OPUESTO X)), 
se podria escribir en BASIC como 
IF 1 = 1 THE ABSOLUTO=OPUESTO (X) EL- 
SE... 
o bien, simplemente 
ABSOLUTO=OPUESTO (X) 
Renuni6ndolo todo, tendriamos que la fun- 
ci6n de LISP 
(COND (( > X 0) X) 
(T (OPUESTO X))) 
equivale a la instrucci6n de BASIC 
IF X>0 THE ABSOLUTO=X ELSE 
ABSOLUTO=OPUESTO (X) 
Veamos otro ejemplo que seguramente ya 
conocer6s: se trata de la funci6n factorial 
> (DE FACTORIAL (N) 
> (COND ((=N O) I) 
>(T N (FACTORIAL (SUB N 1))) 
Por sl aOn no hab6is leido el articulo del Es- 
pecial AS'I'RAD n. ° 2, dir6 primero qu6 es 
Io que hacen algunas de las funciones que he 
utilizado para definir FACTORIAL. Todas elias 
est6n incorporadas en MINILISP. La funci6n 
= compara dos n0meros para ver si son igua- 
les: si Io son devuelve T y si no Io son devuel- 
ve NIL. La funcion * por supuesto sirve para 
multiplicar dos n0meros y SUB es la funci6n 
para restar: devuelve el valor de su primer ar- 
gumento menos el valor del segundo, iPero 
qu6 demonios, si tambi6n he usado la funci6n 
I I 
FACTORIAL. No era esta func'6n la que 
queriamos definir? En efecto, utilizar Io que se 
quiere definir dentro de la propia definici6n 
es una de las maravillas del LISP y se llama 
recursi6n. Si tiehes el intrprete de MIILISP 
puedes comprobar que FACTORIAL funcio- 
na bien, pero no intentes hacerla ejecutar con 
n0meros negativos. 
Pronto contar6 c6mo funciona esto de la re- 
cursi6n y por qu es peligroso preguntarle al 
geniecillo por (FACTORIAL -1). 
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COMO PUEDES GANAR ESTE PREMIO? 

Muy fgcil: 
l, Corta el cup6n que viene en esta pgna y rel14- 
nala con tus datos. 
2 De aqui atres meses saldrn hasta cmco pregun- 
tas, en las piginas de nuestra rewsta. Cont@stalas y 
anota las respuestas en el cup6n 
3. "Una vez contestadas las cinco preguntas, envfa- 
nos el cup6n, junto a una tar/eta promocional que po- 
dris encontrar en todos los juegos de DINAMIC, a 

HOBBY PRESS 
Carretera de Ira.n, km 12,400. 
Fuencarral (Madrid). 
Indlcando claramente en el sobre: Para MEGACON- 
CURSO AMSTRAD-DINAMIC. 
4. Recuerda que aunque s61o envies un cupn com- 
pleto con las clnco respuestas, cada tarjeta promoco- 
hal de los juegos Dinamic te da derecho a una partici- 
paci6n en el concurso, pot cada tarjeta una posibilidad. 

SUERTE 

Cul es Is primera versidn de 
PROFANATION 

un programa DINAMIC para AMSTRAD 
ROCKY WESTBANK 

Cuando tengas las cmco respuestas envia este cup6n a MEGACONCURSO AMSTRAD-D1NAMIC. HOBBY PRESS. Ctra. de Irtn. km. 12,400. ALCOBEND.4S (Madrid). 

Nombre ........................................................................ Apellidos ............................................................................................................................................................................. 
Domicilio ..................................... . .......................................................................................................................................................................................................................................... 
Ciudad ................................................................................................................................. Provincia ...................................................................................................................... 
C. Postal ........................................................................ Telfono ........................................................................ Profesi6n ....................................................................... 

Respuestas 



Los mejore 
AMSTR 

L. meJor a¢cl6n en el meJor ivve el Juegol IConvl'rtt',e 
l)rograrna, maqulna Mxlmo entretenimlento. 
ted,s las Joys y comolet las .. 
CION Y ESTRATEG/A 16 CUEV OIFEENTE' Srum Spectrum 
PANTALL UNO 0 B0S JUDORES Commore Commore 
Amr MSX 
Ama Di Amrad 
Spectrum 
Commodore 
Amrad 

fu eres el boxeador, Lucha y gana 
en este sfn igual combate centre 8 
campeone 

SpeCtrum 
Commodore 
Amstr=d 
Amtrld lDi 

Evita la destruccon de! Universe. 
JSal al espacio exterior = 
; Llegars a tiempo? 

z, )! S T ll.,'t I) 

Spectrum 
C,3mmUore 
mStr=d Disk 

Procure que J,lson no te alcance 
Puede matarte. 

Spe,ct rum 
 Cmodore 
Arslrad 
AmXrad D,lk 

El ,xlto mundlal! Con lu ayuda 
Bomb Jack pue¢l¢ ¢onsegulr el 
obJetlvo. 

Spectrum 
Commodore 
Amstrad 
Amst rad Disk 

SpelCtrum 
Cb m0dor 
AmPfred 

ZAFIRO SOFTWARE DIVISION 
Paseo (e la C.astellana. 141.28046 Maclrlct 
Tel. 459 ]0 04. Tel. 8ama. 209 3] 65. 
Telex: 22690 ZAFIR E 

Programas editados, fabricados y distrlbuidos en Espaha 
con la garantJa Zafiro. Todos los derechos reservados. 



DRAKE DEFENDER 

Vive la angustiosa pero hero/ca resistencia de una nave 
intergalactica durante el ataque sufrido par los crueles 
piratas espaciales, en el transcurso del viaje para 
aprovisionar de vlveres a una de las lejanas colon/as mineras 
de la confederaci6n. 

ste es un juego 
muy sencillo (has- 
ta cierto punto). $61o tiene dos pan- 
tallas. En la pantalla principal el de- 
tensor de una nave espacial puede 
situarse en cuatro lugares diferentes 
para proteger su nave. Cada 100 
puntos se pasa de 6sta a otra panta- 
Ila en la que hay que recorrer un la- 
berinta e, menos de veinte segun- 
dos. La dificultad, en ambas panta- 
Ilas, es progresiva. El programa con- 
tiene instrucciones sabre el manejo. 

Observa¢iones 
La primera linea del programa 
sirve para utilizar los caracteres 
castellanos definidos en el 
programa. AI editar esta linea y 
borrarla hasta despu6s del REM, y 
pulsando posteriormente ENTER 
aparecer6n dichos caracteres. 

ESTRUCTURAS 

140 Instrucciones. 
350 Inicializaci6n juego. 
400 Oibujo pantalla. 
700 Juego. 
770 Hombre arriba izquierda. 
860 Hombre arriba derecha. 
950 Hombre abajo izquierda. 
1040 Hombre abajo derecha. 
1130 Movimiento misiles. 
1220 Misil nave 1. 
1340 Misil nave 2. 
1460 Misil nave 3. 
! 580 Misil nave 4. 
1700 Muerte en pontalla principal. 
! 760 Muerte en meteoritos par 
tiempo. 
1830 Muerte en meteoritos par 
choque. 
1920 Paso pantalla. 
2010 Control puntos. 
2040 Pantallo meteoritos. 
2300 Final juego. 
2440 Marcador. 
2500 Colores par fase. 
2620 Caracteres. 
2800 Caracteres castellanos. 

Para utilizarlos basta con usar la 
tecla COPY para copiarlos en el 
lugar correspondiente. 
El programa Ileva incorporada 
la Ilamada al firmarse CALL 
&BBO3 (que limpia el buffer del 
teclado), y cuyo efecto secundario 
es que el programa no se pueda 
detener m6s que al principio. 
Antes del programa principal 
hay un pequeo programa de 
presentaci6n y carga. 

his (2) 
hdS (i) 
mis, 
misd$ 
navp$ 
metS 
bass 
fase 
vidas 
puntos 
rec 
pantalla 
mn (1) 
mn (2) 
mn (3) 
mn (4) 
facl, fat2 

TABLA DE VARIABLES 
his (1) Parte superior hombre 
izquierda. 
Parte inferior hombre 
izquierda. 
Parte superior hombre 
derecha. 
Parte inferior hombre derecha. 
Misil izquierda. 
Misil derecha. 
Nave propia. 
Meteoritos. 
Base de entrada en la pantalla 
de meteoritos. 
Ngmero de fase: no puede so- 
brepasar 10. 
N0mero de vidas. 
Puntuaci6n. 
Rcord. 
N0mero de pantalla. 
Indicador de posici6n del misil 
de la nave 1. 
Indicador de posici6n del misil 
de la nave 2. 
Indicador de posici6n del misil 
de la nave 3. 
Indicador de posici6n del misil 
de la nave 4. 
NOmeros aleatorios determi- 
nantes del lanzamiento de un 
misil. 
Im Ngmero aleatorio que determi- 
na qu nave lanza el misil. 
cad Variable que controla la fre- 
cuencia en el lanzamiento de 
misiles. 
Controlador de tiempo para 
lanzamiento de misiles. 
Tiempo para las interrupciones. 
NOmero de arden del misil a 
mover. 

tm 
hum 
Dim met 
(38,221 
cm 

Posibles posiciones de los 
meteoritos. 
Cantidad de meteoritos. 

1 RFM fnr 
n=24 to 
20 
 REM ASALTO 
40 REM c DIan Hnman 
AA MOE I:BORER A:II OO:PAPER 
PARE LA CINTA":FOR n- I TO 
XT n:IOCAT 1,?4:PRTNT" P, Ise 
?0 IF INKFY$ "" THFN 7 
80 60SUB 262n 
I LOCAT a,3:PRNT"gUIERES INSTR 
UCCOS9 (S/N" 
110 IF INKEYf6Ot>-t TN 
120 IF ;NKY(4a)<- TN 3 
 GOTO 110 
I MODE 2 
17A PRINT:PR;NT TA(13) " 
I PRINT:PRINT 
lq PRINT = Tu arresada mslon 
s defder la nave que te ha sido 
cendada de los cr;eles pinata 
s epacia]es,que te atacan sin 
ad pr poderrse de tu car-gain 
20A PRINT = ] generador que sumi 
nistra enegla a 1s eagles ]as 
ha sJdo saboteado. Pero los tecnic 
os ban cseguido, en el uli 
ento, hacerlo funcionar al ml-ni. 
P e]]o, ]o ntco que pues h 
er es ellminar a los chetes que Io 
210 PRINT"Fatas te fan, an Justo cua 
ndo se enctenten delante deI 
220 PRINT" Pot otra parte, 
dicamente tlenes que atavesar una 
za de meteorito pa llea a 
una puerta espaclal, que te 
a salta n el epacio-tiempn.": 
ILSA tl T 
CLA PARA CONTINU 
":WH;LE IEY$-"":NENDICLS 
240 INT" Los controles 
 Pantalla 
etes: 
(0): posc ;uperlor 
25 PRINT" (P): posci supe 
rJo derecha. 
(L): posiclon nferor derecha. 
260 PRINT" Para dsparar pulsa I 
atecla de ]a poicon en que te ha 
11es.":PRINT 
27A PRINT Pantalla meteoItos: u 
elazar )a nave es-quivando los 
teoritos basra na de las putas ( 
?SA PRiNT:PRINT:PRINT:PRINT" 
(I) INSTRC;OS 
2qA IF TNKEY(35)>-I TN 



10 6OTO 290 
0 
330 REM UEE3 
34O MODE I 
350 'in|ciaIzaclon 
3aO ase O:vidas 5:puntos-O:pantall 
a=1:ase=1:cad=7:tl-O.B:FOR n=! TO 
4:mn(n)--1:NXT:cm-15 
370 CLS 
80 WINDON #OI4I2:PAPER #00: 
WIND #1I4045:PN #II:PAP 
#i2:LSII:LOCATE 
TOS:':LOCATE #I20I:PRINT#IPA 
NTALLA::LOATE #II2:PINTII=VID 
AS:":LOCATE 
 ORIGIN 
400 "dibua panta]la 
410 80SUB 2440 
4 I 0I:1 I26:1 218:BORDE 
R :OSUB 5:'colores 
4 FOR n-1 TO IAO0 
440 xp=INT(RNDSa40):yp=INT(DI8) 
:coI-INT(RNDI3)+I 
450 OT xpyp,col 
4 XT 
470 HO 256224:DRAWR 32322:DRAN 
4 MOVE 258224DR 32322:DRAW 
R aOO:DRAWR 
4 VE 224160:DRA 324b:DRAWR 
32O:DRAWR IaIR:DRAWR ?O:DRA 
6-IB:ORANR 32O:DRA 
500 MOVE 26,1O:DRAWR 3246:A 
2O:DRAWR 1618:AWR 2O:DRAWR 
-18:DRAWR 3O:DRAWR 
510 x=238:y-145:Ion=Ib4 
520 F n=l TO 
53 x x+2:y y-l:lon=lg-4 
540 MO xy:DRAWR lO 
550 NEXT 
5n PEN  
57A LOCATE 14IO:PRINT CHR$(223)+CH 
580 LOCATE 24IO-PRINT CHR$(214)+CH 
5 LOCATF 12I4:PRINT C$(223+CH 
R$(223)+HR$(775)+C$(215) 
60 LOCATE 2614:PRINT CHR$(214)+CH 
610 LOCATE 1914¢PRNT CHR$(214)+CH 

620 FOR n=34 TO 336 STEP 4 
&30 MOVE n. IbO:DRAWR 
&40 NEXT 
850 PEN 3 
bbO FOR n I TO 3 
670 LOCATE 5,1+n:PRINT nava|$(n):LO 
CATE 33I+n:PRINT navaI$ln):LOCATE 
3,19+n:PRINT naval$(n):LOCATE 35,19 
+n:PRINT navaI$(n) 
680 NEXT 
690 PEN !:FOR n=1 TO 2:LOCATE 188+ 
n:PRINT hi$(n):NEXT 
70 'juego 
710 tm=TIME 
770 IF INKEY(&7)<>-I THEN 770 
730 IF INKEY(27)<>-! THEN 860 
740 IF INKEY(69)<>-I THEN 95n 
750 IF INKEY(36)<-! THEN 
7&O IF TIME>tm+300$tl THEN 1130 ELS 
E 770 
77 'hombre arriba izqulerda 
7GO CALL 
790 SOUND I7057 
800 FOR n=1 TO 2:LOCATE 23G+n:PRIN 
T" :LOCATE 16!2+n:PRINT" =:LOCATE 
2512+n:PRINT" ":NEXT 
81n PEN !:FOR n=1 TO 2:LOCATE 18,8+ 
n:PRINT hi$(n):NEXT 
820 LOCATE 13IO:PRINT CI$(224} 
830 IF mn(1)=7 THEN LOCATE 12,10:P 
INT  ":mn(1)--l:puntos=puntos+2:LOC 
ATE #I8I:PRINT#1,puntos:GOSUB 701 
0 
840 FOR n-1 TO 50-NEXT:LOCATE II0 
:PlaINT" " 
850 SOTO 7&O 
860 "hombre arriba derecha 
870 CALL &BD19 
80 SOUND I7057 
890 FOR n=l TO 2:LOCATE 188+n:PRIN 
T = :LOCATE 16,12+n:PRINT" ":LOCATI 
25,12+n:PRINT" ":NEXT 
900 PEN !:FOR n=l TO 2:LOCATE 238+ 
n:PRINT hd$(n):NEXT 
910 LOCATE 28, tO:PRINT CHR$(224) 
920 IF mn(2)=7 THEN LOCATE 29I0:PR 
INT" ":an(2) -1:puntos=puntos+2:LOC 
ATE #I8I:PRINT#!puntos:SOSUB 201 
0 
9K) FOR n=! TO 50:NEXT:LOCATE 28I0 
:PRINT  - 
940 GGTO 
950 hombre abajo izqulerda 
90 CALL &BD19 

970 SOUND 1,705,7 
980 FOR n-I TO 2:LOCATE !8,G+n. PRIN 
T" ":LOCATE 23R+n:PRINT  ":LOCATE 
25,12+n:PRINT °' ":NEXT 
990 PEN !:FOR n=! TO 2:LOCATE 
+n:PRINT h$1n):NEXT 
!000 LOCATE !!,14:PRINT CHR$224) 
"I010 IF mn(3)-7 THEN LOCATE IO!4:P 
RINT" ":mn(3=-!:puntos-punts+2:LO 
CATE #!8,1:PRINT#Ipuntos:SOSUB 20 
!0 
!020 FOR n I TO 50:NEXT:LOCATE 11.1 
4:PRINT .... 
IX GOTO 
lh4h "hombFe aba derecha 
InSA CALl. 
1060 SUND 1.7,5. 
I7 FOR n=1 TO 2:LOATE 
NT" ":LOCATF ?,R+n:PRINT" ":IOPATF 
1612+n:PRINT .... :NFXT 
I00 PEN !:FOR n=1 TO 7:LOATE 25I 
2+n:PRNT hd$ln):NEXT 
1090 LOCATF 30.14:PRINT CHR$(24) 
1100 IF mn(4)=7 THFN lOCATE I,14:P 
RIN" ":mnl4)=-1:punto=puntos+2:LO 
CATF #1,R,I:PRINT#1punto:GOSUB 
I11 FOR n-1 TO 50:NEXT:LOCATE 
4:PRINT" " 
1120 GOTO 76A 
1130 'mQvmnto 
1140 acl=INT(RNO$cad)+l:ac2=INTR 
NDlcad)+l 
1150 !m-INT(RNDI4)+I 
116 IF acl=ac2 AN mn<Im)=-I THF 
N mnllm)=l 
1170 FOR num=1 TO 4 
118A ON num GOTO 122,I41460,158 
llq mn(num)-mn(nm)+! 
170n NEXT 
l?In SOTO 
120 "misi| nave I 
1230 CALL 
!4n IF mnl!)--1 THEN I? 
125A SOUND 
I60 ON mn(1) GOTO 
1770 lOCATE 7,5:PRINT mi$:ROTO 11 
!2S LOCATE 7,5:PRINT" ":LOCATE 
:PRINT misi$:GOTO 119A 
1790 LOATE S,=PRINT" ":LOCATE 9,7 
:PRINT misi$:GOTO 1190 
!3A I OCATE 97:PRINT" ":LOCATE 
B:PRINT m]si$:GOTO 
110 lOCATE IO,8:PRINT" ":LOATE 
,9:PRINT msi$:ROTO 119n 
1370 LOCATE !!,9:PRINT .... :LOCATE 12 
.t:PRINT msi$:GOTO 
10 I OCATF 12!O=PRINT .... :LOCATE I 
,I:PR[NT mlst$:mn(t)=-l:GOTO 17Af 
134¢ 'misi nave  
135A CALL &BDI9 
I60 IF mn()=-1 THFN 
1370 SOUND I,IA,5,7 
I80 ON mn¢2) GOTO 
47,143.1440,145A 
I90 LOCATE 34,5:PRINT misdt:GOTO I 
190 
1400 LOCATE 34,5:PRINT .... :LOCATE 
.&:PRINT misd$:GOTO 
141A LOCATE 33,6:PRINT .... :LOCATE 32 
,7:PRINT misd$:GOTO 
147 lOCATE 32,7:PRINT .... :LOATE ! 
.8:PRINT misd$:GOTO 11qO 
1430 LOATE I8:PRINT" ":LOCATE 3A 
,9:PRINT mzsd$:ROTO 1190 
144n LOCATE 30,9:PRINT" ":LOCATE 29 
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.IO:PRINT mlsd$:ROTO llqn 
1450 I OCATF ?9, tO:PRINT .... :[OCATF 2 
8.10:PRINT msd$:mn(2)--1:GOTO 
1440 'miil nave  
14 CALl &BD19 
14Go IF mn() -I THEN 
1490 SOUND 
tSnn ON mn() GOTO 
1510 LOCATE 5,19:PRINT misi$:GOTO 
tfi?n LOCATE 5,19:PRINT .... :lOCATE 6, 
tR:PRINT misi$:GOTO t190 
1530 LOFATE 6,1g=PRINT .... :LOCATE 7, 
17:PRINT misi$:GOTO 1190 
1540 LOCATF 7,[7:PRINT" ":LOCATE 
16:PRINT misI$:GOTO 1190 
1550 IOCATF 8, la:PRINT .... :LOCATE 9, 
15:PRINT mi$:GOTO 1190 
156n LOCATE 9,15:PRINT" ":LOCATE tO 
.14:PRINT mii$=OTO 
1570 lOCATE IO.[4:PRINT .... :LOCATF I 
I14:PRINT misi$:mn(31 -I:60T0 170rl 
15R0 'msl nave 4 
1590 CAll BD19 
1600 IF mn(4)--I THEN 12A 
161n SOUNB I,30.5,7 
1470 ON mn(4) GOTO 1430, I&4O,145O, I 
140 LOCATE 34,19:PRINT misd$:GOTO 
164 LOCATE 4,19:PRINT" ":LOCATE 
5,18:PRINT misd$:GOTO 119 
I051: LOCATF 35,18:PRINT .... :LOCATE 
4,17:PRINT misd$:OOTO 119 
1660 LOCATE 34,17:PRINT" ":LOCATE 3 
3,16:PRINT msd$:GOTO 1190 
I070 lOCATE 33,16:PRINT" ":LOCATE 
?,IS:PRINT misd$:GOTO 1190 
1480 lOCATE 37,15:PRINT .... :LOCATE 
1,14:PRINT misd$:GOTO 1190 
1690 LOCATE 31,14:PRINT" :LOCATE 
0,14:PRINT misd$:mnt4)=-1:GOTO 170 
170 'muerte 
1710 FOR n-30 TO 2 STEP -2:SOUND I, 
500,5,7,0, O.n:NEXT 
1720 LOCATE 13,10:PRINT SPACE$(1):L 
OCATE ?8,10:PRINT SPACE$(1):LOCATE 
II,14:PRNT SPACE$(1):LOCATE 3o,14: 
PRINT SPACES(1) 
170 vida=vidas-1:GOSUB 2440 
1740 IF vidas 0 THEN 2300 
1750 GOTO 
po 
1770 FOR n=O TO 2 STEP -2:SOUND 
5005,7,AA,n:NEXT 
TIFMPO CF 
1790 FOR n=l TO AA:NEXT 
I00 vidas-vida-l:GOS118 2440 
1810 IF vidas=O THEN 
IB2n GOTO 
I830 "merte Pn meteorites pnr choq 
1840 FOR n=3O TO 2 STEP -2:SOUND 
1850 FOR n I TO 8:a(n)=INT(RND$2551 
+I:NEXT 
I60 SYMBOL 
I70 LOCATE xnII,ynII:PRINT CHR$124 
5) 
1880 FOR n-1 TO %nn=NEXT 
1890 vidas=vda-1:GOSlIB 2440 
19(: IF vida=n THEN 2300 
1910 GOTO 1920 
Ig70 'paso panfalla mtenritos 
1930 ERASF met 
1940 pnfalla=pantal]a+1 
1950 IF (pantalla MOD 5)=0 THEN vid 
194 IF ase<10 THEN as=ae+1 
197 IF cad%0 THEN cad-cad-1 
1980 FOR n=l TO 4:mn(n)=-I:NEXT 
1990 
2r CI S:GOTO 
2I "control puntos 
?20 IF (punt.s MOO I01= AND t] 
7 THFN tl=t]-A. 1 
203n IF (puntos MOO 1001<0 THFN RE 

TLIRN 
?40 'panta1|a metenrite 
?050 DIM 
2040 CLS:INK I24:INK 2.4:INK .18 
2070 FOR n=t TO cm 
?8 m=INT(RN$38)+t:ym=INT(RNO$2 
)+I:colm=INT(RND$2)+I 
2090 PEN colm+l:IOCATE m,ym:PRINT 
mPt$ 

?110 NFXT 
2170 IF cm<350 THEN cm-cm+50 
710 PEN I:FOR n-1 TO :LOCATE 41:,I 
+n:PRINT basS:NEXT 
2140 lOCATE 1,12:PRINT navp$(2) 
2150 xn-l:yn-12 
7160 tiempo=TIME 
717 IF INKEY(461(-I THEN IS3 
2180 IF INKEY(A)<-I THEN xnII-xn=y 
nII=yn:yn=yn-1=v=1:GOSUB 2230 
2190 IF INKFY(1)<-I THEN xnII=xn:y 
nII-yn:n=xn+1:v=2=BOSUB 2230 
2?00 IF INFEY(O)<-I AND xnl THEN 
xnII-n:ynII=yn:×n=xn-l:v X:GOSUB 2 
2210 IF INKEY(2)(-I THEN ×nII=xn:y 
nII=yn:yn=yn+l:v=4:GOSUB 220 
2?20 IF TIME>tiempo+&O00 THEN 1760 
ELSE 2180 
2230 IF xn)X9 THEN 
2240 IF yn(l THEN yn 
2250 IF yn23 THEN yn=l 
2240 IF mef(xnyn)=l T_N 1831 
2270 CAll BDIg:LOCATE xnlI,ynll:PB 
INT SPACES(1):IOCATF xn,yn:PRINT na 
vp$(v) 
2280 IF xn=9 AND (yn=11 OR yn=1? 0 
R yn=13) THEN pnto=puntos+20:GOTO 
1920 
2?90 RETt IFI 
?0 'inal jueqo 
2310 SOLIND I, lOfl 100,7 
?70 PEN I:LOCATE 9,12:PRINT" aUF 
GO TERMINADO 
2330 CIS#1 
2140 PRINT TAB(5)"PULSA UNA TECLA P 
ARA CONTINUAR" 
?350 CALL &BBO3:WHILE INKEY$="":WEN 
?60 MODE t 
27o IF puntosrec THEN 2400 
380 rec=punto 
?RgO lOCATE 12,10:PRINT"NUEVO RECOR 
2400 LOCATE 3,24:PRINT"OIIIFRFS aUGA 
R OTRA PARTIDA 9 (S/N)" 
2410 IF INKEY(4A)-I THEN 320 
2420 IF INKFY(46),'-I THFN CIS:END 
2430 GOTO 2410 
2440 'marcado 
2450 LOCATE #1,8,1:PRINT#1,puntos 
2440 LOCATE #I,8,2:PRINT#I,STRING$1 
vidas,217);SPACE$(1) 
470 LOCATE #124,2:PRINT#1,ase 
2480 iOCATF #130,1:PRINT#1pantall 
2490 RETURN 
?500 "colores 
2510 ON ase GOTO 2520,253,2540.25 
5025402570580,2590.2400?I 
2520 INK 3,1X:RETURN 
2530 INK 3,4:RETURN 

2540 INK 3,20:RETURN 
2550 IN ,?2:RETIIRN 
7560 INK 3,?5:RETURN 
257 INR 3IO:RETURN 
2580 INK 3,15:RETIlRN 
?590 INK 3,X:RFTEN 
240n INK 38:RETURN 
2610 INK 3,6:RETURN 
2670 "caracteres epecales 
74%A SYMBOL AFTER 217 
2640 RESTORE 2490 
2650 FOR n-717 TO 244 
2460 READ abc,de,fgh 
2670 SYMBOL nab,cd,efg,h 
248 NEXT 

2690 DATA 56,92,95,9X,41,25,47,47,5 
5,230,36,60,74,24,74,74,28,5,250,1 
86,188,157,244,244,236,1336,60,24 
,74,24,24,128,64,18,215,235,18,4 
,128, I,,41,735,215,61,2,10,0,255 
15,255,0,0,0,0,0,0,7550,0,0,0,?,6 
,255255,255,43,15, 
7700 DATA 224,?52,?55,255,255,252,2 
7,0,0,0,0000,2403157I02255,2 
55,102571,244,153,102,255,255,10 
7,153244,111,153I02,255,255,102I 
53,111,748,154I02255255.102,154. 
248 
2710 DATA 
,0,,740,0,0,0,0,,h,0,24,24,60, I02 
,I02,102,255,255,192,248252,199,19 
9,25224819231,6,727,227,6,31 
,3,255,255,102,107, I02,60,24,74,60 
74,145,171,213,137,R2,4n 
2720 DATA 58,38,73315173,106,54,8 
270 hi$(I)=CHR$12171:hi$121 CHB$(2 
l):'hmhrP iTqiierda 
2740 hd$(1)=CHR$(219):hd$(2)=CHR$(2 
20):'hombre derecha 
?750 misi$ CHR$(?21):misd$=CHR$(227 
?760 navaI$(I)=CHR$(227)+CHR$(?281+ 
CHR$(229)+CHR$(230):naval$(2)=CHR$( 
2311+CHR$(232)+CHR$(2331+CHR$(2341: 
naval$(3)=CHR$(235)+CHR$(24}+CHR$( 
2371+CHR$(SXS):'nave allenigena 
277h navp$(l)=CHR$(239):navp$(2)=CH 
R$(?40):navp$(3)=CHR$(241):navp$(41 
=CHR$(242):'nave propia 
?780 me$=CHR$(244):'meteorito 
?790 ba$=CHR$(431 
2BOO 'caracteres castellanos 
21o SYMBOL 24B, Ib,120,12,124,204 
,122 
RSO SYMBOL 247,814,&0,102,124,9, 
2830 SYMBOL 248,8,1,56,24,24,24,40 
2840 SYMBOL ?498,1&40, IOS, IOS, 10P 
,60 
2850 SYMBOL 250,8,16,102102102,10 
2,62 
20 SYMBOL 251,I02,0, I02,102,102,1 
02,62 
2870 SYMBOL 252,124,0,220,102,102,1 
20 SYMBOL 253,254,0,198,230,246,2 
72,206,198 
2090 SYMBOL 254,40, I02,102,4824,0, 
24 
2900 SYMBOL 255,0,24,0,24,24,24,24, 
24 
2910 RETURN 
29?0 STOP 
2930 SAVE "ASALTO" 
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Contabilidad 

Contabilidad de f#cil manejo y 
dera.n potencia que permite 
trabajar con cuentas de hasta 
cuatro niveles, con capaddad 
segSn diskette de 500/1.000 
cuentas y de 2.000/10.000 
asientos. 
Permite modificar o dar de baja 
apuntes ya integrados en el 
Mayor, programaciones de 
cierres, ficheros de 
Contabilidad y Cuenta de 
ExplotaciSn, ejecuci6n de 
balances comparativos, 
reen/az#ndolos por meses, 
clave acceso restringido, etc... 

Facturaci6n 
Programa de gran agilidad y 
rapidez que incorpora el 
Control de Clientes, con gran 
capacidad de datos, Articu/os, 
Albaranes, Facturas y recibos. 
Ceneraci6n automtica y 
manual de documentos, 
valoraciSn, a voluntad de los 
albaranes, todo tipo de/istado, 
induido el de/IVA de/as 
facturas emitidas para la 
dedaraci6n de Hacienda, etc... 

15.500 ptas. 

Gran capaddad de datos, le 
permitir#n a Vd. Ilevar con 
daridad y sencillez el control 
de su stock. 
E/ programa /e permite Ilevar 
un /ibro de entradas/salidas, 
reoranizarlo, hacer listados de 
STOCKS..., le avisar# de los ffmites 
de stocks, minimo y mximo 
por articulo, etc... 
Todo para la Ilevanza de su 
almac#n. 
14. 900 ptas. 

/ 



NUMEROS 

Vamos a comenzar por Io m6s b6sico: las cuatro 
reglas aritmticas. Por supuesto que sabemos que 
todos domlnan la aritmtica sencilla, todos... 
menos el Amstrad, y eso puede traernos 
problemas. 

I igual que los hu- 
manos, los ordenadores precisan ex- 
presiones univocas, ante: 
PRINT 8 + 5 
la respuesta es clara, imprimir6 un 
hermoso 8 en la pantalla. Pero si se 
encuentra con: 
PRINT 5+3*8 
hasta nosotros dudamos si la res- 
puesta es 64 o 29. Pero el ordena- 
dor no puede hacerlo porque se blo- 
quearia. No admite ambigOedades. 
Para evitarlas existe una serie de 
reglas incorporadas al Basic que nos 
permiten manipular los nOmeros sin 
ningOn problema. Es Io que se llama 
Regla de la Precedencia de Opera- 
dores y quiere decir que por un 
acuerdo asignamos un orden de eje- 
cuci6n a los diferentes simbolos que 
operan sobre los nOmeros. 
El orden de prioridad establecido 
es: 
-- Potenciaci6n. 
-- Multiplicaci6n y divisi6n. 
-- Suma y resta. 
En cuanto alas operaciones con la 
misma prioridad se eval0an de iz- 
quierda a derecha. Por eso nuestro 
ordenador ha contestado con un 29 
al problema anterior. 
Sin embargo, todo Io que hemos 
dicho anteriormente no es rigido. To- 
dos los lenguajes tienen prevista la 
posibilidad de que nos interese sal- 
tarnos las reglas. Y el modo de ha- 
cerlo es mediante nuestro antiguo 
conocido del colegio: el parntesis. 
Vamos a conseguir un 64 como re- 
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sultado de la operaci6n anterior. 
Basta con hater: 
PRINT (5+3)*8 
Vamos a darle una regla de oro: 
ante la duda utilice los par6ntesis 
siempre que los necesite. Es muy di- 
ficil depurar errores cometidos al ju- 
guetear con los n0meros. 
Otra regla m6s, deje que trabaje 
el ordenador. Usted s61o si6ntese y... 
disfrute. 

Exponenciaci6n 

A nivel de operaciones b6sicas nos 
queda por hablar de la exponencia- 
ci6n. Consiste en tomar un n0mero 
Ilamado BASE y multiplicarlo por si 
mismo tantas veces como Io indica un 
segundo Ilamado EXPONENTE. 
Su representaci6n gr6fica es AI, 
donde A es la base. 
El estudio de la exponenciaci6n es 
muy interesante porque nos va a per- 
mitir aprender mucho mrs acerca del 
tratamiento de n0meros, y de la ca- 
pacidad de c61culo de los ordenado- 
res. 
Por muy potente que sea un orde- 
nador el rango de nOmeros que ma- 
neja es limitado, entre otras cosas 
porque ocupan memoria al repre- 
sentarse internamente. Cada mqui- 
na tiene asignado un nOmero fijo de 
bytes para contener una cantidad. 
De ahi el techo del c61culo. 
Pero, cdmo averiguar el rango?. 
F6cilmente, cualquier nOmero dividi- 
do por cero es infinito, verdad.. Pa- 
ra nosotros lo es, pero para el orde- 
nador (dfifinito)) es el n0mero rn6xi- 
mo que puede represenfar, asique: 
PRINT 310 
por ejemplo, nos dar6 el ((techo)) de 
c61culo del ordenador. Este nOmero 
viene siendo un 1 seguido de 38 ce- 
ros: una cifra inimaginable. 
Por Io que respecta al limite infe- 
rior, el sistema para encontrarle es 
igual de f6cil: 
PRINT (310)-- 1 
nos dar6 como resultado menos ((in- 

finito)) y que corresponde a un 10 
elevado a --39. 
Y en el caso que, en una opera- 
ci6n, nos salgamos de rango, qu 
pasa. Pues que el Amstracl nos ob- 
sequia con un mensaje de error: 
((OVERFLOW)) que quiere decir ((so- 
brepasamiento)) y el programa se 
defiene. 
Aunque no Io parezca, este men- 
sole de error es posiflvo. Podemos 
aprovecharlo para calcular el m6xi- 
mo exponente al que pueda elevar- 
se un n0mero, como hace el Progra- 
ma I. 
Est6 formado por cuatro bucles: 
1. El principal (lineas 70-170). 
2. La subrutina de entrada de dao 
tos (200-220). 
3. Saca el error, caso que se pro- 
duzca, indicando el valor m6ximo 
(240-260). 
4. Subrufina de capfura de erro- 
res (280-310). 
Este Oltimo es el punto m6s intere- 
sante, puesto que si se produce el 
error nos lo identifica. Cada error 
posee un c6digo numrico asociado 
que puede encontrarse en el capifu- 
Io 7 del Manual. 
Si el error es diferente a ((OVER- 
FLOW)), el programa no Io trata, o 
Io ignora, mediante la orden RESU- 
ME NEXT de la linea 280 que fuerza 
al Basic a reanudar la ejecuci6n del 
programa en la linea siguiente a 
donde se produjo el error. 
Sin embargo, las realmente impor- 
tantes son la 300 y 310. La primera 
decrementa el exponente en una uni- 
dad, mientras que la orden: RESUME 
de la segunda obliga al Amstrad a 
continuar la ejecuci6n en la Ifnea 
120, la misma donde se produjo el 
error. Y asi Io har6 una y otra vez 
hasta que no detecte ninguno. 
Es un programa interesante pero 
no perfecto, porque si bien nos im- 
pide sobrepasar el techo de c61culo, 
no ocurre Io mismo ((por debaio))y 
cuando juguemos con 1 observare- 
mosque los nOmeros negativos aca- 
ban de dar cero. Por qua? 



10 REM PROGRAMA I 
20 ON ERROR (]o'ro 28(:) 
30 : 
4C) CL S 
50 over I cvJ. error=6: ok=C):  i ag. error 
= 0 
60 : 
70 WHILE NOT 
80 : 
90 GOSUB 2C)0 
100 : 
II0 PRINT'Calulando" 120 r es=base"'ex 
130 
140 GOSUB 240 
150 : 
160 F'RINT base;"elevado a'ex"ale 

170 WEND 

18(') END 
 90 : 
200 INF'UT "Base: ";base 
210 INPUT "Expnente: "ex 
220 RETLIRN 
230 : 
24(') iF flag.error THEN PRINT "Ha ha 

Dido un over-{iov":F'RINT "El maximo 
exponente posible es:".ex 
u.  i ag. err-or=O 
2C RETLIRN 
27(] : 
:.,8.) IE ERR< >verlw. error THEN RES 
UME NEXT 
290 41 ag. error=-i 
.0(') ex =ex- i 
310 REStME 
320 : 

PUBLICIDAD 
I 
".GABINETE DE IFOffATIA 
• Clases de Inform6tica 
sobre AMSTRAD 
En grupo e individuole. 
• Ordenadores AMSTRAD y 
perifricos 
Los meiores precios 
• Software: Est6ndor y a la medida 

ZURBANO, 4410 47 63 
28010 MADRID 

Centro Comercial Guadalupe 
Ctra. Canillas, 136-1. a planta 
Tel. 200 80 65 MADRID 

Centro Comercial El Bulevar 
La Moraleja 
Tel. 654 16 12 MADRID 

Tambi#n abierto domingos de 10 a 2 
Centro Comercial Ciudad Sto. Domingo 
Ctra. de Burgos, km 28. 
Tel.: (91) 622 12 89 
Algete (Madrid) (Central) 

Servicio Tcnico 
Para AMSTRAD 
en Galicia, 
Le6n 
y Asturias. 
C/ Magdalena, 213 
El Ferrol 
Tel.: (981) 35 84 32 

iOperaci6n cambio! 
Valoramos: 
Tu AMSTRAD 464 en 50,000 ptas. 
Un Spectrum+ en 30.000 ptas. 
Amstrod CPC 664 en 70,000 ptas. 
En la compra del AMSTRAD CPC 6128 
o PCW 8256. 
Consulle para monitor color. 
Precios especiales en impresoras y ac- 
cesorios. 
 Tardes 270 34 97. 

OPERA CION CAMBIO 
Psate a monitor color por 
25.000 ptas. 
Valoramos: 
Tu Amstrad 464 en 50.000 ptas. 
Amstrad 664 en 60.000 ptas. 
En la compra de un Amstrad 
CPC 612,8, PCW8256. PCW8512 
C0nsutte para monitor color 
 (91) 270 34 97 de 4,30 a 8,30 

MICRO DEALER 

MA YORISTAS DE INFORMATICA 
AMSTRAD PCW 8512 
AMSTRAD PCW 8256 
AMSTRAD CPC 6128 F6sforo verde y color 
AMSTRAD CPC 472 F6sforo verde y color 
Impresoras, Interlaces, Joysticks 
Diskettes de 3 pulgadas, cable, etc. 
 Sinclair. Commodore, New Print. 
Spectravideo, Compatibles IBM 
CL Comandante Zorita, 13. 28020 Madrid 
Tells. 233 07 81 • 233 0735 
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lfimero u sUMtAER GMAES 
espues SUIIER GJIES II 

y ahora... 

,( 



SI I]USCAS LO ME.JOR / LO TIENE 

OLVIDA TODO LO QUE HAS VI 0 

,mm,,ore .4/ ; 

iiEL FI 1 1 ii 

DISTIBUIDOR EXCLUSIVO PARA ESPAfA ERBE SOFTWARE C/. STA. ENGRACIA, 17. 28010 MADRID, TFNO.: (91) 447 34 10 
DELEGACION BARCELONA, AVDA. MISTRAL, N. ° 10 - TFNO.: (93) 432 07 31 
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